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TSUSR — 


File operation 


Table of contents 


3- i 


L USRINI - 


4- 1 


I . LOOKUP 


5- i 


L . ENTER 


6- : 


I . RENAME 


7- 1 


L . DELETE 


8- ] 


L . CLOSE 


9- i 


I . DSTATUS 


10- 3 


L . FETCH 


11- i 


L . SFDAT, 


12- 3 


I . GFINF - 


14- ] 


L ALCEMT - 


15- 3 


I DLCEMT - 


16- i 


L TLCEMT - 


17- J 


I ALCTST - 


18- 3 


i ALCCOM - 


19- 3 


I CHKUSE - 


20- 3 


L MOUNT - 


21- 3 


I DISMNT - 


22- 3 


L DMTALL - 


24- 3 


I DMTDEV - 


25- 3 


I MNTCOM - 


26- 3 


L CPYMNT - 


27- 3 


[ CLRDIR - 


28- 3 


L USRCOM - 


29- 3 


L OETSPC - 


30- 3 


[ CPYSPC - 


31- 3 


I GETUSR - 


31- 5: 


J FREUSR - 


32- 3 


L CHKDEV - 


33- 3 


L CHKALC - 


34- 3 


L CHKACC - 


35- 3 


L ACCMCH - 


36- 3 


L FNDFIL - 


37- 3 


I FNDFRE - 


38- 3 


L ADDENT - 


39- 3 


L INSERT - 


40- 3 


I SPLIT - 


41- 3 


L CONSOL - 


43- 3 


L GETDIR - 


44- 3 


L NXTDIR - 


45- 3 


L DIDDLE - 


46- 3 


L SBCALC - 


47- 3 


L RDSEGl - 


48- 3 


L RDSEG - 


49- 3 


I WRTSEG - 


50- 3 


L SPLDIR - 


51- 3 


I GETSPD - 


51- 31 


5 FRESPD - 


52- 3 


[ CSHADD - 


53- 3 


L CSHDEL - 


54- i 


L CSHCHK - 


55- 3 


L CSHTST - 


56- 3 


L GETDVU - 


57- 3 


L CDJFLG - 


58- 3 


L USRXIT - 


59- 3 


L ERRNAM - 
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Initialization for USR module 



a file 



user 



SFTIM. & . FPROT 

- Get information about 

- Allocate a device 

- Deallocate a device 

- Check to see if a device is allocated 

- See if device is allocated to another 

- Common setup for Allocate/Deallocate 

- See if any channels open to a specified device 

- Mount a new file structure 

- Dismount a file structure 

- Dismount all mounted devices for job 

- Remove entry from cache table 

- MOUNT/DISMOUNT common setup 

- Copy mount entries from another job 

- Remove directory entries from dir cache 

- Common setup 

- Get file spec from user's area 

- Copy file specification from user's area 

- Claim usr data base for our job 

- Free the USR 

- See if requested device is legal 

- Check for device allocation 

" Check legality of file access 

- Compare file spec with CN03ACCESS entry 
" Find file in directory 

- Find a free slot for a new file 

- Add a tentative file entry to directory 

- Add an empty file entry to directory 

- Split a directory segment 

- Directory segment consolidator 

- Locate next directory entry 

- Locate next directory entry in 

- Allow user to access directory 

- Calculate starting block # for 

- Read 1st directory segment 

- Read a directory segment 

- Write directory segment 

- Directory operations for special 

- Gain exclusive access to special 

- Free special device data base 

- Add file entry to directory cache 

- Remove a file entry from the directory cache 

- Search for file entry in directory cache 
" Determine if device is to be cached 
■ Get device # ?< unit # info 

- Get user-flag for cached device entry 
-Exit from USR 

- Set name of file spec for error message 
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current segment 

entry 

a file entry 



devices 

device data base 
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000000 
000000 



103112 



.TITLE TSUSR — File operation EMT's 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

TSUSR is the TSX module that contains the processing routines for 
EMTs that perform file operations such as . lookup* .enter, .delete* 
. rename* etc. 

Copyright (c) 1980* 1981* 1982* 1983* 1984*1985. 

S&H Computer Systems* Inc. Nashville. TN 
All rights reserved. 

. CSECT TSUSR 

TSUSR: . RAD50 /USR/ 
* 

* Macro calls 
* 

. MCALL . READW* . WRITW* . WAIT 

i 

i Global definitions 
> 

. GLOBL TSUSR. GETUSR, USRTOP* USRINI 

. GLOBL LOOKUP, ENTER, CLOSE, DELETE* RENAME 

. GLOBL DSTAT* FREUSR* USRUCA, ALCEMT. CLRDIR 

. GLOBL SFTIME. SFDATE. SFPROT, GFINFO 

. GLOBL MOUNT; DISMNT* FRESPD* FETCH* CPYMNT 
* 

» Global references 
* 

. GLOBL EXCJOB, KMDNCE 

. GLOBL DVSTAT, CHNADR, FILSPC, EMTBLK, ASNTBL* LDDEMT* LDIEMT 

. GLOBL LDAEMT, ASNEND* CORUSR, S*QUSR, MAXLD, KPAR6, WLDNAM 

. GLOBL AT*LOG, AT*SIZ, AT*DEV. AT*FIL, AT*EXT* AT**SZ 

. GLOBL PO*ALC* PRIVCO* PO*BYP, PO*NFR, PO*NFW 

. GLOBL CHKABT, UREGO, NUMDEV* LSTFDT, LSTFDD 

. GLOBL TK3SVL, FD«TIM, SYTIMH, SYTIML, FC*CDX 

. GLOBL QNSPNX, JCDB, DVFLAG, DX*RAL* DX*NMT 

. GLOBL PNAME, CHNNUM. SYINDX, SYUNIT* RUNFLG* AF*BYA 

. GLOBL C. CSW, C. SBLK, C. LENG, C. USED, C. NUMQ, C. DEVQ 

. GLOBL CS*NMX, CS«ENT, SERFLG. «KINIT, NLCHN 

. GLOBL CS*OPN, CHKSD, CS*SPL, CSHCLN* CSHALC 

. GLOBL LSW2* RESDEV, OKFILE, OF*DEV, LSW6, OKFAND, OKFNND 

. GLOBL OF*UNT, OT«RDN, OF*FLG* OF^FIL, OF*«SZ 

. GLOBL OKFEND, LSW5, CS*RON, ERRSPC* CS*EOF* CS*ERR 

. GLOBL DS*NRD, CL«LIX* PRIVCO, PO«SYS, DXSNRD 

. GLOBL DS«DIR, SDCLOS* SFCLS* VMXFIL, *UCLRN* LSW7 

. GLOBL FD*STA* FD*NAM* FD*LEN* FD*JOB, FD*CHN 

. GLOBL FD*DAT. FD*OPT* CPLEMT, EMTCAD 

. GLOBL FS*TEN* FS*EMP* FS*PRM* FS*EOS, VNFCSH 

. GLOBL ALCTBL, ALCEND, AD«DVU* AD* JOB* AD*FLG* AD**SZ 

. GLOBL DH«NSG* DH*NXT, DH*HIS* DH*NEB* DH*BLK 

. GLOBL DH*$SZ* DH**BS* LDFLAG, LD*RON 

.GLOBL EMTXIT, SETERR, URO, SYSCHN 

. GLOBL SYSDAT, GETCHA, LSW, *DILUP, LDSIZE 

. GLOBL FC**SZ, BADEMT, LNPRIM, CLTOTL 

. GLOBL lOWAIT, GETCXT, FRECXT 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 



OLOBL UACHKW. VALADB, VALADW 

OLOB L HANS I Z . HANENT . DEVS I Z i EMTP S 

GLOBL SYSCHN. LSTSL. CHNSIZ 

GLOBL CURCP/ R«CHN, R*XCHN/ FS*PRO 

GLOBL *NOIN, LSW3, LDDEVX, CLDEVX, CIDEVX 

GLOBL ABORT, EMTADR, USREMT, CSHHD, FC*LNK 

GLOBL FD**SZ, FC*SBL, CSHDEVi CSHDVN, Q. JNUM 

GLOBL Q. CSW, Q. FUNC, Q. UNIT, Q. JOB, Q. DEVX 

GLOBL VPAR6, Q. BUFF, Q. PAR, Q. WCNT, Q. COMP, Q. BLKN 

GLOBL Q. CHAN, SPUSR, S*QSPD, Q. UCSW, Q. ICSW 

GLOBL DF*LOK, DF$ENT, DF*DEL, DF*CLS, Q. PA6 

GLOBL OVRHC, INTPRI, PR7, PSW, LDPDEV, CLCLOS 

GLOBL USRJOB, SPDJOB, SPSIZE, SPFLDV, SPFLNM, OETQ, QIO 

GLOBL *DUPRN, UMODE, EHTPS, ODTBAS 

GLOBL CD*DVU, CD*BAS, CD**SZ, LDBASE. CD*TOP 

GLOBL CD* JOB, CD**UB, CD*NAM, LDNAME, NSPLDV, CLZERR 
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13 
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17 
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20 
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23 
24 
25 








26 
27 
28 




000300 




29 








30 


000002 






31 


002002 


177777 




32 


002004 


000000 




33 


002006 


000000 


1 


34 


002010 


000000 




35 


002012 


000000 




36 


002014 


000000 


1 . 


37 


002016 


075250 




38 


002020 


015270 




39 


002022 


075273 




40 


002024 


100020 




41 


002026 


177777 




42 


002030 


000000 




43 


002032 


000000 




44 


002034 


000000 




45 


002036 


000000 




46 


002040 


000000 




47 


002042 


000000 




48 


002044 


000000 




49 








50 

51 








52 


002046 


000 




53 


002047 


000 




54 


002050 


000 




55 








56 
57 
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Macro definitions. 

. MACRO DISABL 

BIS #PR7, e#PSW 

. ENDM DISABLE 

. MACRO ENABL 

BIC INTPRI,e#PSW 

. ENDM ENABL 



Disable interrupt processing 



J Enable interrupt processing 



Macro definition for calling global routines residing in mapped system regions. 



.ERROR iOCALL SPECIFIED WITH NO ENTRY ADDRESS 



iCALL THE OVERLAY HANDLER 
J SPECIFY THE ENTRY POINT 





. MACRO 


OCALL 




. IF 


B, ENTAI 
. ERROR 
. MEXIT 




. ENDC 






CALL 


OVRHC 




. WORD 


ENTADD 




. ENDM 




; Assembly parameters. 

• 


USRUCA = 

• 


300 


i Data areas 




USRBUI 


-: . BLKW 


512. 


CURSE* 


3: . WORD 


-1 


DIRHI! 


3: . WORD 





DIRSI 


Z: .WORD 





DIRNS< 


3: . WORD 





FILBLI 


^■. . WORD 





FILDV« 


J: . WORD 





R50SY 


. RAD50 


/SY/ 


R50DK 


. RAD50 


/DK/ 


R50SY! 


3: . RAD50 


/SYS/ 


R50TS 


K: . RAD50 


/TSX/ 


USRCN" 


T: . WORD 


-1 


LISIZ 


. WORD 





LI OFF 


. WORD 





LISEG 


. WORD 





L2SIZ 


. WORD 





L20FF 


. WORD 





L2SEG 


. WORD 





ASNSI 


Z: . WORD 





i By 


te data 




CKADE^ 


J: . BYTE 





CKAUN" 


r: . BYTE 





CNSLXl 


3: . BYTE 






> USR~User communication area 



/Buffer to hold a directory segment 
/Number of segment currently in USRBUF 
/Highest segment # used in directory 
/Number of bytes per directory entry 
/Number of directory segments available 
/Block number of start of file 
/ Dev # in low byte/ unit # in high byte 



/# of times we have claimed usr 
;Size of largest free slot found 
/Address of entry in dir segment buffer 
;# of directory segment with largest slot 
;Size of second largest free slot found 
/Address of entry in dir segment buffer 
i# of dir segment with 2nd largest slot 
iSize specified for file with ASSIGN 
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/ CONSOL routine reorganized segment flag 



Internal USR error checks. 

(Numbers correspond to KMON error table offsets) 
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58 




59 


177762 


60 


177761 


61 


177760 


62 


177757 


63 


177756 


64 


177755 


65 





UERRl = -16 i Can't find tentative file entry for file on close * 

UERR2 = -17 jFile length in chan block not = to len in file entry 

UERR3 = -20 ; Highest block # written > file length 

' 62 177757 UERR4 = -21 i Empty file entry doesn't follow tentative file entry < 

UERR5 = -22 J Not tentative file entry during close 

-. _...__ UERR6 = -23 i Illegal or uninitialized directory 

» 65 . EVEN < 
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— Initialization for USR module 

. SBTTL USRINI — Initialization for USR module 

i USRINI is called during system initialization to perform data table 
i allocation for the TSUSR module. 



002052 010246 
002054 010346 



002056 012702 015466 



002062 010237 OOOOOOG 

002066 013700 OOOOOOG 

002072 010203 

002074 062703 OOOOOOG 

002100 020327 140000 

002104 101403 

002106 162703 OOOOOOG 

002112 000406 

002114 010362 OOOOOOG 

002120 005062 OOOOOOG 

002124 010302 

002126 077017 

002130 162703 OOOOOOG 

002134 005063 OOOOOOG 



002140 012603 
002142 012602 
002144 000207 



USRINI: 



MOV 
MOV 



R2. -<SP) 
R3, -(SP) 



Allocate tables within this overlay segment above top of code 

MOV #USRTOP» R2 ; Point above top of code in this segment 

Allocate file directory cache table 

Set pointer to 1st free directory cache entry 
Get # cache entries to allocate 
1*: MOV R2» R3 ; Get address of current entry 

Get address of next entry 

Will current entry fit in overlay region? 
Br if yes 
No — Backup pointer to current entry 

2*: MOV R3i FC*LNK(R2) ;Make current entry point to next one 

; Say entry is currently free 
ihake next entry be current one 
/Loop if more to allocate 

3*: SUB #FC**SZ, R3 ; Point to last entry 

iMake its forward link zero 



MOV 


R2, CSHHD 


MOV 


VNFCSH, RO 


MOV 


R2, R3 


ADD 


#FC*«SZ, R3 


CMP 


R3, #140000 


BLOS 


2* 


SUB 


#FC*«SZ, R3 


BR 


3* 


MOV 


R3, FC«LNK(R2) 


CLR 


FC*CDX<R2) 


MOV 


R3, R2 


SOB 


ROi 1* 


SUB 


#FC**SZ, R3 


CLR 


FC*LNK(R3) 


inished 




MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


RETURN 
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. LOOKUP 



2 
3 
4 

5 002146 

6 002152 
7 

8 

9 
10 
11 

12 002156 

13 002162 

14 002164 

15 002172 
16 

17 
18 
19 

20 002174 

21 002202 

22 002204 

23 002212 

24 002214 

25 002220 
26 

27 
28 

29 002224 

30 002232 
31 

32 
33 
34 

35 002234 

36 002240 
37 

38 
39 
40 

41 002242 

42 002246 

43 002252 
44 

45 
46 
47 

48 002254 

49 002260 

50 002262 

51 002266 
52 

53 
54 

55 002272 

56 002274 

57 002300 
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. SBTTL . LOOKUP 
Perform a file lookup. 



004737 
005037 



007376 ' 
OOOOOOG 



LOOKUP: CALL 
CLR 



USRCOM 
URO 



i DO COMMON PARAMETER SETUP 

iFOR NOW, SAY FILE SIZE = BLOCKS 



Now R3 = Address of channel block/ R4 
See if the device is spooled. 



Index into device tables. 



105737 
001404 

103063 



OOOOOOG 



TSTB 


NSPLDV 


BEQ 


1* 


OCALL 


CHKSD 


BCC 


3* 



; Are there any spooled devices? 

/Br if not 

/See if lue aTe opening to spooled device 

/Br if this is a spooled device 



This is not a spooled device. 
See if this is a magnetic tape. 



032764 
001004 
032764 
001404 
012702 
000137 



032764 
001443 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
014212' 



1$: 



6*: 



BIT 
BNE 
BIT 
BEQ 
MOV 
JMP 



#DS*NRD, DVSTAT<R4) J IS THIS A NON-RT-11 DIRECTORY DEVICE? 

6* / Br if yes 

#DX*NRD/ DVFLAG<R4)i Internal non-RT-11 dir flag set? 



5* 

#DF$LOK/ R2 
SPLDIR 



BR IF NOT 

CODE FOR LOOKUP 

DO SPECIAL DEVICE LOOKUP 



OOOOOOG OOOOOOG 5*: 



See if this is a file structured device. 

BIT #DS*DIR/DVSTAT(R4)i DIRECTORY STRUCTURED DEVICE? 
BEQ 3* ; Br if not — We are finished 

This is a file structured device. 

See if this is a non-file-structured lookup <nuH file name). 



005737 
001440 



000002G 



TST 
BEQ 



FILSPC+2 
3* 



/IS FILE NAME NULL? 

;BR IF NON-FILE-STRUCTURED LOOKUP 



Lookup file name on a directory structured device. 
See if file info is stored in directory cache. 



012701 
004737 
103013 



000002G 
015054' 



MOV 

CALL 

BCC 



#FILSPC+2. Rl 
CSHCHK 



POINT TO NAME OF FILE 

LOOK FOR FILE IN DIRECTORY CACHE 

BR IF FOUND IT 



File info uias not found in directory cache 
so we must look at real directory. 



004737 
103004 
012700 
000137 



010046 
004737 
012600 



011376' 

000001 
015356' 



CALL 


FNDFIL 


BCC 


4* 


MOV 


#1/R0 


JMP 


USRCLS 



LOOKUP FILE NAME IN DEVICE DIRECTORY 

BR IF FOUND 

RETURN ERROR CODE OF 1 IF FILE DOESN'T EXIST 



Add file entry to directory cache. 



4*: 



014700 



MOV 

CALL 

MOV 



RO, -<SP) 

CSHADD 

(SP)+/RO 



SAVE FILE STARTING BLOCK # 

ADD FILE INFO TO DIRECTORY CACHE 

GET BACK FILE STARTING BLOCK # 
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58 










59 










60 










61 










62 










63 


002302 


010063 


OOOOOOG 




64 


002306 


016100 


OOOOOOG 




65 


002312 


010063 


OOOOOOG 




66 


002316 


010037 


OOOOOOG 




67 


002322 


016137 


OOOOOOG 


OOOOOOG 


68 


002330 


016137 


OOOOOOG 


OOOOOOG 


69 










70 










71 










72 


002336 


004737 


013456' 




73 








i 


74 










75 










76 


002342 


000137 


015404' 





MACRO V05. 05 Wednesday lS~Jan-S9 12:12 Page 4-1 



Found file. Save info about file in channel. 
(Rl now points to directory entry for file). 
<R0 Contains starting block number of the file) 



2*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



; SET FILE STARTING BLOCK # 
;GET ALLOCATED SIZE OF FILE 
i STORE IN CHANNEL BLOCK 
i RETURN TO USER IN RO 
FD*TIM<Rl).LSTFDTiSAVE TIME ENTRY FROM EACH LOOKUP 
FD*DAT<R1),LSTFDD; ALSO SAVE DATE ENTRY 



RO, C. SBLK(R3) 
FD*LEN<R1),R0 
RO, C. LENG(R3) 
RO, URO 



Allotu user to diddle uiith directory entry if he uants to. 

CALL DIDDLE i ALLOW DIRECTORY ENTRY DIDDLE 



Finished 
3*: JMP 



USRXIT 



;EXIT FROM USR PROCESSING 
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1 
2 
3 
4 

5 002346 

6 002352 
7 

8 
9 

10 002356 

11 002364 

12 002366 

13 002372 

14 002376 
15 

16 
17 

18 002402 

19 002406 

20 002410 

21 002416 
22 

23 
24 
25 

26 002420 

27 002426 

28 002430 

29 002436 

30 002440 

31 002446 

32 002452 
33 

34 
35 

36 002456 

37 002464 
38 

39 
40 
41 

42 002466 

43 002472 

44 002474 

45 002500 

46 002504 
47 

48 

49 002506 

50 

51 

52 

53 

54 002512 

55 002516 

56 002522 
57 



. SBTTL . ENTER 
Open a new file. 



004737 
005037 



032763 
001406 
004737 
012700 
000137 



105737 
001404 

103074 



007376 ' 

ooooooe 



OOOOOOG 0000000 



ENTER: 



CALL 
CLR 



USRCOM 
URO 



; DO COMMON SETUP 

iFOR NOW. SAY FILE SIZE = 



015426' 

177763 

015356' 



OOOOOOG 



See if we have write access to the file. 

BIT #CS*RON, C. CSW<R3);D0 WE HAVE WRITE ACCESS TO THE FILE? 

BEQ 4* ;BR IF YES 

CALL ERRNAM ; SET NAME OF FILE FOR TSKMON ERROR MESSAGE 

MOV #-15, RO iSET ABORT CODE 

JMP USRCLS i ABORT OPERATION 

See if it is a spooled device. 



4*: 



TSTB 


NSPLDV 


BEQ 


3* 


OCALL 


CHKSD 


BCC 


9* 



032764 
001004 
032764 
001407 
052763 
012702 
000137 



032764 
001451 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

014212' 



OOOOOOG OOOOOOG 5*: 



013702 
001002 
013702 
004737 
103002 



002044 ' 

000004G 
011460' 



000137 015356' 



i Are there any spooled devices? 

J Br if not 

j Are we opening to a spooled device? 

i Br if this is a spooled device 

This is not a spooled device. 
See if this is a magnetic tape. 

3«: BIT #DS*NRD, DVSTAT(R4)i MAG TAPE TYPE DIRECTORY DEVICE? 

BNE 7* iBr if yes 

BIT #DX*NRD,DVFLAG<R4)i Internal flag set? 

BEQ 5* i BR IF NOT 

7*: BIS #CS*ENT, C. CSW<R3)iSET FLAG TO CAUSE TO CALL HANDLER ON CLOSE 

MOV #DF*ENT, R2 i GET CODE FOR ENTER 

JMP SPLDIR iGO DO SPECIAL DEVICE ENTER 

See if this is a file structured device. 

B I T #DS*D I R , DVSTAT ( R4 ) i F I LE STRUC TURED DE V I C E? 
BEQ 9* iBr if not file structured 

This is a file structured device. 

Look for a free slot large enough for the file. 

WAS SIZE SPECIFIED WITH ASSIGN STATEMENT? 

BR IF YES 

GET REQUESTED SIZE FROM EMT ARG BLOCK 

TRY TO FIND A FREE SLOT 

BR IF FOUND ONE 
Error: Can't find a free slot or protected file exists with same name. 
(Error code is returned in RO by FNDFRE. ) 
JMP USRCLS 

We have found a free slot. 
Create a tenative file entry. 



6* 



MOV 


ASNSIZ,R2 ) 


BNE 


6« i 


MOV 


EMTBLK+4, R2 i 


CALL 


FNDFRE i 


BCC 


1* i 



010237 
004737 
103004 



OOOOOOG 
012210' 



1*: MOV R2, URO 
CALL ADDENT 
BCC 2* 

i Error: Directory overflow 



RETURN FILE SIZE IN USER'S RO 
CREATE A TENTATIVE FILE ENTRY 
BR IF WE WERE SUCCESSFUL 
Return error code 1. 



i 
t 

% 
I 
< 
f 
I 
f 
I 
4 
C 

i 
4 
€ 

i 
i 
I 
I 
I 
i 
i 



f 
I 

f 



I 

» i 

I < 

I 

• f 

< 
f 

i 
i 

i 

i 

( 
t 
i 
{ 



TSUSR 
. ENTER 



File operation EMT's MACRO V05. 05 Wednesday 18-Jan-S9 12:12 Page 5-1 



58 002524 

59 002530 
60 

61 
62 

63 002534 

64 002540 

65 002544 

66 002546 

67 002552 

68 002556 

69 002562 

70 002566 
71 

72 

73 

74 002570 

75 

76 

77 

78 002574 

79 

80 

81 

82 002600 

83 002604 
84 

85 
86 
87 002610 



012700 
000137 



013703 
013700 
000300 
052700 
050063 
010263 
004737 
010002 



000001 
015356' 



OOOOOOG 
002002 ' 

OOOOOOG 
OOOOOOG 
OOOOOOG 
013622' 



004737 013456 



004737 014110' 



010263 OOOOOOG 
005063 OOOOOOG 



000137 015404 



MOV 
JMP 



#1,R0 
USRCLS 



i SET ERROR CODE 
; ABORT ENTER 



2*: 



MOV 


CHNADRi R3 


MOV 


CURSEG, RO 


SWAB 


RO 


BIS 


#CS*ENT, RO 


BIS 


RO, C. CSW<R3> 


MOV 


R2. C. LENG<R3) 


CALL 


SBCALC 


MOV 


RO, R2 



Set up info in channel about file. 

ADDRESS OF CHANNEL BLOCK 
CURRENT DIRECTORY SEGMENT # 
POSITION SEG # TO LEFT BYTE 
REMEMBER WE ARE DOING AN ENTER 
SET UP CSW 

SET UP ALLOCATED LENGTH OF FILE 
CALCULATE STARTING BLOCK # OF FILE 
SAVE STARTING BLOCK NUMBER OF FILE 

Give user a chance to diddle with directory entry. 

CALL DIDDLE ; ALLOW USER TO DIDDLE WITH DIRECTORY ENTRY 

Write out the directory segment. 

CALL WRTSEG i WRITE OUT UPDATED DIRECTORY SEGMENT 

Set up file starting block number in channel 

i SET FILE STARTING BLOCK NUMBER IN CHANNEL 
;SAY NO BLOCKS WRITTEN TO FILE YET 



9*: 



MOV 


R2, C. SBLK(R3) 


CLR 


C. USED<R3) 


Finished 




JMP 


USRXIT 



I 

f 



i 
i 
f 
i 
i 
( 

4 

i 

< 

i 
I 
i 
I 
I 



TSUSR 
. RENAME 
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002614 004737 007376' 



1 
2 
3 
4 
5 
6 
7 
8 
9 002620 

10 002626 

11 002630 

12 002634 
13 

14 
15 

16 002640 

17 002646 
18 

19 
20 
21 

22 002650 

23 002654 

24 002656 

25 002662 
26 

27 002666 

28 002670 

29 002672 

30 002676 
31 

32 

33 

34 002700 

35 

36 

37 

38 002704 

39 002710 

40 002714 

41 002720 

42 002724 

43 002730 

44 002732 

45 002736 

46 002742 
47 

48 
49 

50 002746 

51 002752 

52 002760 
53 

54 
55 
56 
57 



032764 
001004 
012700 
000137 



032763 
001063 



OOOOOOG OOOOOOG 

000002 
015356' 



. SBTTL . RENAME 

i "~ —.———————____ —__,^____-_.__.— —.———————————— ————— —————— ——. 

J Rename a file. 

RENAME: CALL USRCOM i DO COMMON SETUP 

i 

i See if this is a file structured device. 
» 

BIT #DS*DIR*DVSTAT<R4);FILE STRUCTURED DEVICE? 

BNE 1* iBR IF YES 

MOV #2, RO ; INVALID OPERATION 

JMP USRCLS 

i 

i Make sure me have write access to old file. 



OOOOOOG OOOOOOG 1«: 



BIT #CS*RON, C. CSW(R3);D0 WE HAVE WRITE ACCESS TO OLD FILE? 
BNE 11* J BR IF NOT 



Locate directory entry with old name. 

(Note: FILSPC currently contains old file name) 



004737 
103004 
012700 
000137 

010146 
010105 
013746 
010446 



011376' 

000001 
015356' 



002002 ' 



CALL 


FNDFIL 


i LOOK UP THE ENTRY 


BCC 


2« 


iBR IF FOUND 


MOV 


#1,R0 


iFILE NOT FOUND 


JMP 


USRCLS 





i Save info about old file entry. 

2*: MOV R1,-<SP) i ADDRESS OF ITS DIRECTORY ENTRY 

MOV R1,R5 i CARRY ADDR OF DIR ENTRY IN R5 FOR A WHILE 

MOV CURSEG, -<SP) ; SEGMENT NUMBER CONTAINING ENTRY 

MOV R4, -(SP) ; DEVICE TABLE INDEX 

i 

i Remove old file entry from directory cache. 



004737 015030 



CALL CSHDEL 
Set up new file spec. 



013701 
042701 
062701 
004737 
004737 
103006 
004737 
012700 
000137 



004737 
032763 
001016 



000002G 
000001 
000010 
007546 ' 
010226' 

015426' 

177776 

015356' 



010602' 
OOOOOOG 



3*: 



OOOOOOG 



{DELETE FILE ENTRY FROM CACHE TABLE 



i ADDRESS OF FILE SPEC AREA 

i MAKE SURE ADDRESS IS EVEN 

i POINT TO NEW FILE SPEC 

iMOVE DEVICE-FILE SPEC TO FILSPC 

iMAKE SURE DEVICE IS LEGAL 

iBR IF OK 

;SET FILE SPEC FOR TSKMON ERROR MESSAGE 

i ILLEGAL DEVICE 



Make sure user is authorized to access to neui file. 

CALL CHKACC ; SEE IF USER IS AUTHORIZED FOR ACCESS 

BIT #CS*RON, C. CSW(R3)i IS USER AUTHORIZED TO WRITE TO NEW FILE? 

BNE 11* iBR IF NOT 

Make sure device and unit match that of old file. 
R4 = Device table index for new file. 
RO = Device unit number for new file. 



MOV 


EMTBLK+2, Rl 


BIC 


#1,R1 


ADD 


#10, Rl 


CALL 


GETSPC 


CALL 


CHKDEV 


BCC 


3* 


CALL 


ERRNAM 


MOV 


#-2. RO 


JMP 


USRCLS 



4 

C 



TSUSR - 
. RENAME 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



002762 
002764 
002766 
002770 
002774 
003000 
003004 



003006 
003014 
003016 
003022 
003026 



003032 
003040 
003046 
003054 
003056 



003062 
003066 



003070 
003076 



003100 
003102 
003106 
003110 
003116 
003124 
003130 
003134 



003140 
003144 



003152 
003156 
003160 



020426 
001405 
022626 
012700 
000137 
120063 
001370 



032763 
001406 
004737 
012700 
000137 



042765 
052765 
023727 
001402 
004737 



004737 
103442 



032761 
001420 



012600 
004737 
012601 
042761 
052761 
004737 
012700 
000137 



004737 
012761 



023716 
001002 
012600 



000002 
015356' 

ooooooe 



5*: 



4*: 



CMP R4, (SP) + 

BEG 4$ 

CMP (SP)+, <SP)+ 

MOV #2, RO 

JMP USRCLS 

CMPB RO, C. DEVQ<R3> 

BNE 5* 



i COMPARE DEVICE INDEX NUMBERS 

i BR IF OK 

i CLEAN OFF STACK 

i INVALID OPERATION 

i DO UNIT NUMBERS MATCH? 
iBR IF DON'T MATCH 



Make sure lue have write access to new fill 



ooooooe ooooooG 

015426' 

177763 

015356' 



11$: 



BIT 

BEQ 

CALL 

MOV 

JMP 



#CS*RON, C. CSW<R3)iD0 WE HAVE WRITE ACCESS TO NEW FILE? 



10* 

ERRNAM 
#-15, RO 
USRCLS 



BR IF YES 

SET FILE SPEC FOR TSKMON ERROR MESSAGE 

SET ABORT CODE 

ABORT THE OPERATION 



ooooooe 
ooooooe 

002002 ' 
014110' 



011376' 



OOOOOOG 

ooooooe 

000001 



Delete any existing file with new file name. 

Temporarily mark old file entry as empty so we won't find it when 

searching for file that has same name as new file. 

Note that this is safe since the USR is locked and noone else can 

access the directory. 
10*: BIC #FS*PRM,FD*STA<R5)i CLEAR PERMANENT-FILE STATUS FLAO 
BIS #FS*EMP,FD*STA<R5); SET EMPTY-FILE STATUS FLAG 
CMP CURSEG, #1 i IS THIS DIR ENTRY IN SEGMENT # 1? 
BEQ 12* i BR IF YES — IT WILL NOT BE REREAD 

CALL WRTSEG ; WRITE OUT MODIFIED ENTRY SO FNDFIL 

i Try to locate directory entry for file being deleted. 



BY FNDFIL 
WILL READ IT 



; (Note: FILSPC now contains 
12*: CALL FNDFIL 
BCS 9* 



new file name) 

i LOOKUP NEW FILE NAME 

iBR IF DON'T NEED TO DELETE 



File with new name already exists. 
See if it is protected. 



OOOOOOG OOOOOOG 



013772' 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
014110' 
000003 
015356' 



015030' 
OOOOOOG OOOOOOG 

002002 ' 



BIT 
BEQ 
i File is pro 
; Restore fil 
MOV 
CALL 
MOV 
BIC 
BIS 
CALL 
MOV 
JMP 
> File is not 
i Remove its 
13*: CALL 
i Mark its en 

MOV 
i See if this 
i If it is, b 
CMP 
BNE 
MOV 



#FS*PRO, FD*STA< 

13* 
tected so we cann 
e status word for 

<SP)+, RO 

RDSEe 

(SP)+, Rl 

#FS*EMP,FD*STA< 

#FS*PRM, FD*STA< 

WRTSEe 

#3, RO 

USRCLS 
protected, 
entry from direct 

CSHDEL 
try as empty. 

#FS*EMP,FD*STA< 

entry is in same 

ypass the consoli 

CURSEG, <SP) 

6* 

(SP)+, RO 



Rl)i IS FILE PROTECTED? 

; BR IF NOT 
ot delete it. 

old file then return error code 3 for rename. 

i GET DIR SEG # FOR OLD FILE ENTRY 

iREAD IN THE SEGMENT 

iGET ADDRESS OF DIR ENTRY IN SEGMENT 
Rl)i CLEAR EMPTY-FILE FLAG 
RDiSET PERMANENT-FILE FLAG 

i REWRITE THE DIR SEGMENT 

; RETURN ERROR CODE 3 



I 

c 



ory cache, 
i DELETE FILE ENTRY FROM CACHE TABLE 

RDiFILE IS NOW DELETED 

directory segment as the file being renamed, 
dation & rewrite. 

i IS DELETED FILE ENTRY IN SAME SEG AS RENAMED ENTRY? 

; BR IF NOT 

i POP SEGMENT NUMBER 



c 



TSUSR - 


— File 


operation EMT's MACRO V05. C 


. RENAME 








115 


003162 


000407 




116 






i 


117 


003164 


004737 


013016' 6*: 


118 


003170 


004737 


014110' 


119 






J 


120 






/ 


121 






i 


122 


003174 


012600 


9*: 


123 


003176 


004737 


013772' 


124 


003202 


012601 


7*: 


125 


003204 


042761 


OOOOOOG OOOOOOG 


126 


003212 


052761 


OOOOOOG OOOOOOG 


127 


003220 


010105 




128 


003222 


062705 


OOOOOOG 


129 


003226 


012702 


000002G 


130 


003232 


012225 




131 


003234 


012225 




132 


003236 


011215 




133 






J 


134 






i 


135 






> 


136 


003240 


004737 


013456' 


137 






/ 


138 






i 


139 






> 


140 


003244 


004737 


014700' 


141 






> 


142 






i 


143 






i 


144 


003250 


004737 


013016' 


145 


003254 


004737 


014110' 


146 








147 








148 








149 


003260 


005063 


OOOOOOG 


150 


003264 


000137 


015404' 



BR 7* } GO FILL IN NEW NAME 

Consolidate Sc rewrite segment uiith deleted file entry. 

CALL CONSOL ; CONSOLIDATE DIRECTORY SEGMENT 

CALL WRTSEG i WRITE IT OUT 

Now change the name in the old file entry. 

MOV <SP)+, RO iGET DIRECTORY SEGMENT # 

CALL RDSEG i READ IN THE SEGMENT 

MOV (SP)+/R1 ;GET ADDRESS OF ENTRY WITHIN SEGMENT 

BIC #FS*EMP,FD*STA<Rl)i CLEAR EMPTY-FILE FLAG 

B I S #FS*PRM, FD*STA < R 1 ) i SET PERMANENT-F I LE FLAG 

MOV R1,R5 iQET ADDRESS OF DIR ENTRY BEING RENAMED 

ADD #FD*NAM, R5 i POINT TO FILE NAME AREA IN ENTRY 

MOV #FILSPC+2, R2 i POINT TO NEW FILE NAME 

MOV (R2)-«-, (R5)+ iMOVE IN NEW NAME 

MOV (R2)+, (R5) + 

MOV (R2), <R5) 

Give user a chance to diddle with the dir entry if he wishes. 

CALL DIDDLE i ALLOW USER TO DIDDLE 

Add new file entry to cache table. 

CALL CSHADD ; ADD NEW FILE ENTRY TO CACHE TABLE 

Consolidate and rewrite directory segment. 

; CONSOLIDATE DIRECTORY SEGMENT 
i WRITE IT OUT 

i PURGE THE CHANNEL 



CALL 


CONSOL 


CALL 


WRTSEG 


Finished 




CLR 


C. CSW<R3) 


JMP 


USRXIT 



I 
I 

f 

I 

t 
I 



( 
I 
i 
i 
i 
i 

4 
f 

I 

i 

t 
I 



f 

f 

f 
I 
< 

c 

I I 
( 
I 
f 

i 

C 

► 
I 
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( 

i 
« 
I 
( 



TSUSR — 
. DELETE 



2 
3 
4 



5 003270 

6 

7 

8 

9 003274 

10 0033O2 

11 003304 

12 003310 

13 003314 
14 

15 
16 

17 003320 

18 003326 

19 003330 

20 003336 

21 003340 

22 003344 
23 

24 
25 

26 003350 

27 003356 
28 

29 
30 

31 003360 

32 003364 
33 

34 
35 

36 003370 

37 003374 
38 

39 
40 

41 003376 

42 003404 

43 003406 

44 003412 
45 

46 

47 

48 003416 

49 

50 

51 

52 003422 

54 
55 

56 003430 

57 003434 
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. 3BTTL . DELETE 
; Delete a permanent file entry. 

i 

DELETE: CALL USRCOM ; DO COMMON SETUP 

J 

; See if ue have uirite access to file being deleted. 



004737 007376 ' 



032763 
001406 
004737 
012700 
000137 



032764 
001004 
032764 
001404 
012702 
000137 



032764 
001004 



012700 
000137 



004737 
103425 



032761 
001404 
012700 
000137 



OOOOOOG OOOOOOG 

015426' 

177763 

015356' 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
014212' 



BIT 

BEQ 

CALL 

MOV 

JMP 



#CS*RON, C. CSW<R3)iD0 WE HAVE WRITE ACCESS TO FILE? 



2* 

ERR NAM 
#-15, RO 
USRCLS 



BR IF YES 

SET FILE SPEC FOR TSKMON ERROR MESSAGE 

SET ABORT ERROR CODE 

ABORT THE OPERATION 



See if device is a magnetic tape. 



2*: 



6*: 



BIT 
BNE 
BIT 
BEQ 
MOV 
JMP 



#DS*NRD, DVSTAT(R4); IS THIS A MAG TAPE DEVICE? 
6* ; Br if yes 

#DX*NRD,DVFLAG<R4)i Internal flag set? 



5$ 

#DF*DEL. R2 
SPLDIR 



BR IF NOT 

SET DELETE FUNCTION CODE 

DO SPECIAL DEVICE DELETE 



OOOOOOG OOOOOOG 5*: 



000002 
015356' 



011376' 



See if this is a file structured device. 

BIT #DS«DIR,DVSTAT<R4); IS THIS A DIRECTORY STRUCTURED DEVICE? 
BNE 1* iBR IF YES 

Delete is invalid on non-file-structured device. 

; RETURN INVALID-OPERATION ERROR CODE 



MOV 
JMP 



#2, RO 
USRCLS 



Try to locate directory entry for file being deleted. 



1«: 



CALL 
BCS 



FNDFIL 
9* 



i LOOK UP THE FILE 

jBR IF FILE DOES NOT EXIST 



See if file is protected. 



OOOOOOG OOOOOOG 

000003 
015356' 



004737 015030' 



012761 OOOOOOG OOOOOOG 



BIT #FS*PRO, FD*STA<Rl)i IS FILE PROTECTED? 

BEQ 3* iBR IF NOT 

MOV #3, RO i RETURN ERROR CODE 3 IF FILE IS PROTECTED 

JMP USRCLS 
i 

; Remove file entry from directory cache. 

3*: CALL CSHDEL i REMOVE FILE ENTRY FROM DIRECTORY CACHE 

i 

i File exists. Mark its entry as empty. 

i 

MOV #FS*EMP,FD*STA<Rl)iMARK DIR ENTRY AS EMPTY 

i Consolidate and rewrite the directory segment. 



004737 
004737 



013016' 
014110' 



CALL 
CALL 



CONSOL 
WRTSEG 



i CONSOLIDATE THE SEGMENT 
; WRITE SEGMENT TO DISK 



i 
f 

f 
I 

4 
< 

( 
f 
< 

( 

I 
i 
< 
c 

« 

I 
I 
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. DELETE 



58 






} 




59 






i Finished 




60 






i 




61 003440 


005063 


OOOOOOG 


CLR 


C. CSW<R3) 


62 003444 


000137 


015404' 


JMP 


USRXIT 


63 






i 




64 






i File does 


not exist. 


65 






i 




66 003450 


012700 


000001 


9*: MOV 


#1,R0 


67 003454 


000137 


015356' 


JMP 


USRCLS 



PURGE THE CHANNEL 



FILE DOES NOT EXIST 



i 
I 
f 

i 
i 

i 

i 

« 
( 
I 
I 



i 
I 
I 

i 

4 
< 



TSUSR — File 
. CLOSE 

1 
2 
3 
4 

5 003460 

6 003464 

7 003472 
a 003474 
9 

10 

11 

12 003500 

13 

14 

15 

16 003504 

17 003512 

18 003514 

19 003522 
20 

21 
22 

23 003526 

24 003532 

25 003536 

26 003544 

27 003546 

28 003554 

29 003556 

30 003562 
31 

32 
33 

34 003566 

35 003572 

36 003574 
37 

38 
39 

40 003600 

41 003606 
42 

43 

44 

45 

46 003610 

47 

48 

49 

50 003614 

51 003622 

52 003626 

53 003632 
54 

55 
56 
57 003636 
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.. 3BTTL . CLOSE 
Close a channel. 



013703 
032763 
001002 
000137 



0000000 

0000000 ooooooe 

004204 ' 



CLOSE: MOV 
BIT 
BNE 
JMP 



CHNADR,R3 ; GET ADDRESS OF CHANNEL BLOCK 
#CS*OPN, C. CSW<R3); IS THE CHANNEL OPEN? 
7* J BR IF CHANNEL IS OPEN 

8« i NOP IF NOT OPEN 



004737 ooooooe 



032763 
001405 



0000000 0000000 



000137 004200' 



016300 
042700 
032760 
001004 
032760 
001404 
012702 
000137 



005737 
001402 
004777 



032763 
001574 



ooooooe 
ooooooe 
ooooooe ooooooe 

ooooooe ooooooe 

ooooooe 

014212' 



ooooooe 
ooooooe 



Wait for all I/O to finish on this channel 

7«: CALL lOWAIT i WAIT FOR ALL I/O ON CHANNEL TO FINISH 

See if b>e are closing a spooled device. 

BIT #CS*SPL, C. CSW<R3)i IS THIS A SPOOLED DEVICE CHANNEL? 

BEQ 1* iBR IF NOT 

OCALL SDCLOS i CLOSE A SPOOLED DEVICE CHANNEL 

JMP 9* 

See if device being closed is a magnetic tape. 

1*: MOV C. CSW<R3),R0 ; GET CSW 

BIC #'^C<CS*NMX>, RO ; MASK OUT ALL BUT DEVICE TABLE INDEX 

BIT #DS*NRD>DVSTAT<RO)i IS DEVICE A MAO TAPE? 

BNE 18* * Br if yes 

BIT #DX*NRD»DVFLAG<RO)s Internal flag set? 

BEQ 6* i BR IF NOT 

1S«: MOV #DF*CLS, R2 i DO SPECIAL DEVICE CLOSE 

JMP SPLDIR 



See if ute are closing a shared file. 



6*: 



TST 


JCDB 


BEQ 


17* 


CALL 


eSFCLS 



; Does job have any shared file chans open? 

i BR IF NOT 

i CHECK FOR CLOSINC A SHARED FILE 



See if this file uias opened with a .LOOKUP or .ENTER 



ooooooe ooooooe 17*: 



BIT #CS*ENT, C. CSW<R3)iDID WE DO A .ENTER ON THE CHANNEL? 
BEQ 9* ; BR IF NOT 



004737 010004' 



116337 ooooooe 002015 

016300 ooooooe 

042700 ooooooe 

110037 002014' 



005063 ooooooe 



We are closing a new file on a directory structured device. 
Gain exclusive access to USR data base. 

CALL GETUSR i CLAIM EXCLUSIVE ACCESS TO USR 

Set up device # and unit # in FILDVU. 



MOVB 
MOV 
BIC 
MOVB 



C. DEVQ<R3)>FILDVU+liSET UNIT # 



C. CSW(R3),R0 
#'^C<CS*NMX>, RO 
ROi FILDVU 



GET CHANNEL STATUS WORD 

MASK OUT ALL BUT DEVICE INDEX # 

SET DEVICE INDEX # 



Set up info about this directory 

CLR C. SBLK<R3) i SAY CHANNEL BEINO USED FOR DIRECTORY OP 



< 

i 
I 
I 

i 
i 
< 
i 

i 
i 
i 



i 
I 



i 



I 



f 

i 
i 

i 
I 
f 
t 
C 
I 

> i 
\i 
' c 

i 
i 
i 

i 



TSUSR — 
. CLOSE 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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003642 
003650 



003654 
003660 
003664 
003666 
003672 
003676 
003702 
003706 
003710 
003714 
003716 
003724 



003726 
003730 
003734 
003740 
003742 
003744 

003746 
003750 



003754 
003760 



003774 
004000 
004002 
004004 
004006 
004012 
004016 
004020 



004024 
004026 
004034 
004036 
004044 
004050 
004054 
004056 



042763 
004737 



016300 
042700 
000300 
004737 
013702 
012700 
004737 
103545 
120261 
001370 
123761 
001364 



010102 
062702 
012704 
012224 
012224 
011214 

010146 
013746 



004737 
103416 



003762 004737 



003766 012761 



023716 
001002 
005726 
000407 
004737 
004737 
012600 
004737 



012601 
032761 
001506 
012761 
016102 
020263 
001065 
016300 



OOOOOOC OOOOOOG 
013656' 



OOOOOOG 
160377 

013772' 
OOOOOOG 
OOOOOOG 
013370' 

OOOOOOG 

OOOOOOG OOOOOOG 



BIC »<CS«EOF!CS*ERR> 
CALL RDSEGl 



..', C. CSW(R3) 
iREAD SEGl 



i IGNORE PRIOR ERROR 
AND SET DIRSIZ 



Find the tentative file entry 



>*: 



OOOOOOG 
000002G 



002002 ' 

011376' 

015030' 

OOOOOOG OOOOOOG 
002002 ' 



013016' 
014110' 

013772' 



MOV 
BIC 
SUAB 
CALL 
MOV 
MOV 
CALL 
BCS 
CMPB 
BNE 
CMPB 
BNE 
Found the 
Save the 
MOV 
ADO 
MOV 
MOV 
MOV 
MOV 
Remember 
MOV 
MOV 



C. CSW<R3),R0 

#'^C<17400>, RO 

RO 

RDSEG 

CHNNUM, R2 

#FS*TEN, RO 

GETDIR 

11$ 

R2, FD*CHN(R1) 

2« 

CORUSRiFD«JOB<Rl 

2$ 
tentative file entr 
file name in FILSPC. 

RliR2 

#FD*NAM, R2 

#FILSPC+2i R4 

(R2)-»-, <R4> + 

<R2)+, <R4) + 

<R2), <R4) 
the position of the 

R1>-(SP) 

CURSEO, -<SP) 



;GET CHANNEL STATUS WORD 

;GET DIRECTORY SEGMENT # WITH TENTATIVE ENTRY 

} RIGHT-JUSTIFY SEG # 

jREAD IN THAT SEGMENT 

i GET OUR CHANNEL # 

iFIND NEXT TENTATIVE FILE ENTRY 

iBR IF CAN'T FIND TENTATIVE FILE ENTRY 

J IS THIS ENTRY FOR RIGHT CHANNEL? 

i BR IF NOT 

); IS THIS FILE FOR RIGHT JOB? 

;BR IF NOT 

y- 

ADDRESS OF TENTATIVE FILE ENTRY 

POINT TO NAME IN ENTRY 

SAVE THE NAME HERE 

SAVE FILE NAME IN FILSPC 



tentative file entry. 



Delete any permanent file entry that has the same name as the neu file. 



3« 
5* 



CALL 

BCS 
Delete old 

CALL 
Mark old fi 

MOV 
Consol idate 

CMP 

BNE 

TST 

BR 

CALL 

CALL 

MOV 

CALL 



FNDFIL 

5* 
file entry from d 

CSHDEL 
le as deleted. 

#FS*EMP, FD*STA< 
and rewrite old 

CURSEG, (SP) 

3« 

(SP) + 

4* 

CONSOL 

WRTSEG 

(SP)+, RO 

RDSEG 



i SEARCH FOR PERM FILE ENTRY WITH THIS NAME 
i BR IF NO PERM FILE ENTRY WITH SAME NAME 
irectory cache, 
i DELETE OLD FILE ENTRY FROM DIRECTORY CACHE 

RDi CHANGE OLD FILE ENTRY TO BE EMPTY 

segment unless it is same as one with new entry 

; IS OLD SEG SAME AS NEW ONE? 

; BR IF NOT 

; POP NEW SEG # 

; CONSOLIDATE THE OLD SEGMENT 
i WRITE OUT THE OLD SEGMENT 
;GET # OF NEW SEGMENT 
;READ IT IN 



4*: 



OOOOOOG OOOOOOG 

OOOOOOG 0000006 

OOOOOOG 

OOOOOOG 

OOOOOOG 



Convert tentative file entry to permanent. 

MOV <SP)+, Rl iOET ADDRESS OF TENTATIVE FILE ENTRY 

BIT #FS*TEN, FD*STA<Rl)iMAKE SURE WE'RE POINTING TO TENTATIVE ENTRY 

BEQ 15* iBAD ERROR IF NOT 

MOV #FS*PRM, FD*STA<Rl)iSET ITS TYPE TO PERMANENT FILE 

MOV FD*LEN<R1),R2 i GET ALLOCATED SIZE OF FILE 

CMP R2, C. LENG(R3) ; MAKE SURE FILE LENGTHS AGREE 

BNE 12* J BAD ERROR IF NOT 

MOV C. USED<R3),R0 i GET # BLOCKS ACTUALLY USED IN FILE 



i 
f 

i 
i 
i 
i 
I 
c 
c 

I 

i 
i 

€ 

< 

I 
I 
( 



i 

I 

c 

i 



f 
I 
« 

i 

i 



I 



TSUSR 
. CLOSE 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
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004062 
004066 
004070 
004072 
004074 
004100 
004106 
004110 

004114 
004120 
004124 
004130 
004132 
004140 
004144 
004150 
004154 



010061 
020002 
101062 
160002 
063701 
032761 
001456 
060261 

163701 
005061 
005761 
001013 
013761 
013704 
013705 
071437 
010461 



OOOOOOG 



002006 ' 
0000000 

OOOOOOG 

002006 ' 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 



MOV 
CMP 
BHI 
SUB 
ADD 
BIT 
BEQ 
ADD 



ROi FD*LEN ( R 1 ) 

RO, R2 

13* 

R0/R2 

DIRSIZ>R1 



;SET THIS AS THE ACTUAL FILE LENGTH 

iMAKE SURE HIGHEST BLOCK NOT ABOVE FILE LENGTH 

i ERROR IF TOO BIG 

iGET # BLOCKS LEFT OVER 

; POINT TO EMPTY FILE ENTRY THAT FOLLOWS 



#FS*EMP,FD*STA<R1);MAKE SURE THIS REALLY IS AN EMPTY ENTRY 

14* >BAD ERROR IF NOT 

R2, FD*LEN(R1> i ADD RESIDUAL BLOCKS TO EMPTY ENTRY 



Set date and time of file creation in file directory entry. 



OOOOOOG 



004160 004737 014700' 



004164 
004170 



004737 
004737 



013016 
014110 



004 1 74 004737 010146' 



004200 005063 OOOOOOG 



004204 
004210 
004212 



1 1 3700 
001402 
000137 



OOOOOOG 
OOOOOOG 



004216 000137 OOOOOOG 



004222 
004226 

004230 
004234 

004236 
004242 

004244 
004250 



012700 
000413 

012700 
000410 

012700 
000405 

012700 
000402 



177762 



177761 



177760 



177757 



SUB 
CLR 
TST 
BNE 
MOV 
MOV 
MOV 
DIV 
MOV 



DIRSIZ-Rl 
FD*TIM<R1) 
FD*DAT(R1) 
16* 



POINT BACK TO NEW DIRECTORY ENTRY 
SAY CREATION TIME UNKNOWN 
DID DIDDLE ROUTINE SET FILE DATE? 
BR IF YES 



SYSDAT, FD*DAT<R1);SET DATA THAT FILE WAS CREATED <CLOSED) 



SYTIMH, R4 

SYTIML, R5 

TK3SVL, R4 

R4, FD*TIM<R1) 
i Add entry for new file to directory cache. 
16*: CALL CSHADD i ADD TO CACHE TABLE 

i Consolidate and rewrite the directory segment. 



GET CURRENT TIME OF DAY <HIGH ORDER) 
GET LOW-ORDER TIME OF DAY 
CONVERT TO 3-SECDND UNITS 
SET TIME OF FILE CREATION 



CALL 
CALL 



CONSOL 
WRTSEG 



9* 



8*: 



Free the USR 

CALL FREUSR 
Mark the channel as closed. 

CLR C. CSW(R3) 



i CONSOLIDATE THE DIRECTORY 
i WRITE OUT THE SEGMENT 



; RELEASE USR DATA BASE 



iSAY THE CHANNEL IS CLOSED 



Finished, check for non-fatal errors 



MOVE 

BEQ 

JMP 



CLZERR, RO 

10* 

SETERR 



; Do me need to report . CLOSZ error? 

; Br if not 

i If so* report error to user 



Successful completion 



10*: 



JMP 



EMTXIT 



i Consistency check errors — May indicate hardware errors or bugs. 

i 

; Can't find tentative file during close. 
11*: MOV #UERR1,R0 

BR 20* 
; File size in channel block doesn't agree with size in directory entry. 
12*: MOV #UERR2, RO 

BR 20* 
; Highest block # written is greater than file length. 
13*: MOV #UERR3, RO 

BR 20* 
> Empty file entry does not follow tentative file entry. 
14*: MOV #UERR4, RO 

BR 20* 
; Not pointing to tentative file entry during close. 



f 
I 
t 

I 

i 

< 
t 
c 
t 



I 



i 
I 
i 

I 
f 
I 
C 
I 

i 

I 

I 

c 
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. CLOSE 

172 004252 012700 177756 15*. MOV #UERR5, RO 

173 004256 000137 015414' 20*: JMP UABORT i GIVE FATAL ABORT 



f 

I 

f 



TSUSR — File 
. DSTATUS 



i 

i i 
I ( 

I I 
f 
I 
f 
< 

i 

I 
, I 

i 

< 
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. SBTTL . DSTATUS 
.DSTATUS — Determine device status. 



I 

c 



2 








3 








4 








5 
6 
7 


004262 


004737 


010004' 


004266 


013701 


OOOOOOG 


8 

9 

10 


004272 


004737 


007546 ' 


004276 


004737 


010226' 


11 


004302 


103003 




12 








13 


004304 


005000 




14 


004306 


000137 


015370' 


15 








16 








17 








18 








19 








20 


004312 


010005 




21 


004314 


013700 


000004G 


22 


004320 


010037 


OOOOOOG 


23 


004324 


004737 


OOOOOOG 


24 


004330 


016446 


OOOOOOG 


25 


004334 


106620 




26 


004336 


016446 


OOOOOOG 


27 


004342 


106620 




28 


004344 


016446 


OOOOOOG 


29 


004350 


106620 




30 


004352 


016446 


OOOOOOG 


31 


004356 


106620 




32 








33 








34 








35 


004360 


020437 


OOOOOOG 


36 


004364 


001004 




37 


004366 


006305 




38 


004370 


016546 


OOOOOOG 


39 


004374 


106640 




40 








41 








42 








43 


004376 


000137 


015404' 



DSTAT: CALL GETUSR i GET EXCLUSIVE ACCESS TO USR DATA BASE 
i Move device name to FILSPC buffer and perform any assigns. 

MOV URO, Rl i POINT TO DEVICE SPEC 

CALL GETSPC i MOVE TO FILSPC BUFFER 
i Look up device in perm name table. 

CALL CHKDEV i LOOK UP THE DEVICE NAME 

BCC 1* iBR IF FOUND 
» Invalid device name 

CLR RO iSET ERROR CODE 

JMP USRERR 

Valid device. 

Return info about it. 

(R4 now has device table index) 



CARRY UNIT NUMBER IN R5 

GET POINTER TO USER'S RESULT AREA 

RETURN POINTER TO RESULT IN RO 

VALIDATE THE ADDRESS 

DEVICE STATUS WORD 



1*: MOV RO, R5 

MOV EMTBLK+4, RO 

MOV RO, URO 

CALL VALADW 

MOV DVSTAT(R4),-<SP) 

MTPD <R0)+ 

MOV HANSIZ<R4),-(SP); HANDLER SIZE 

MTPD (R0)+ 

MOV HANENT < R4 ) , - ( SP ) J HANDLER ENTRY PO I NT 

MTPD <R0)+ 

MOV DEVSIZ(R4),-<SP); DEVICE SIZE 

MTPD (R0)+ 

If this is a logical disk, return file size as device size 

IS THIS A LOGICAL DISK? 
BR IF NOT 

CONVERT UNIT # TO WORD TABLE INDEX 
•<SP);GET LOGICAL DISK SIZE 
PASS TO USER 



i FINISHED 



CMP 


R4. LDDEVX 


BNE 


2« 


ASL 


R5 


MOV 


LDSIZE<R5) 


MTPD 


-(RO) 


J 

i Finished 




i 

2*: JMP 


USRXIT 



I 

4 



I 
I 
I 

i 
f 

4 
I 



i 

i 
i 

I 



TSUSR - 


— File 


. FETCH 




i 




2 




3 




4 




5 




6 




7 


004402 


8 




9 




10 




11 


004406 


12 


004412 


13 




14 




15 




16 


004416 


17 


004422 


le 




19 




20 




21 


004424 


22 


004426 


23 




24 




25 




26 




27 


004432 


28 


004436 


29 


004440 


30 


004444 


31 


004450 
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004737 010004 



013701 0000000 
004737 007546 ' 



004737 010226' 
103003 



005000 

000137 015370' 



013700 0000040 

005200 

042700 000001 

010037 OOOOOOG 

000137 015404' 



SBTTL 



FETCH 



; .FETCH EMT, This is basically a NOP under TSX-Plus since all device 
i handlers are permanently resident. However, uie do check to make sure 
i the device is installed. 

> 

FETCH: CALL GETUSR i Oet exclusive access to USR data base 

i Move device name to FILSPC buffer and perform any assigns 



MOV 
CALL 



URO, Rl 
GETSPC 



j Point to device spec 
5 Move to filspc buffer 



Look up device in perm name table 



CALL 
BCC 



CHKDEV 
1* 



Invalid device 



CLR 
JMP 



RO 
USRERR 



iLook up the device name 
; Br if found 



/Set error code == O 
i Return uiith error 



The device name is valid. 

Return handler load address to user in RO. 



1«: 



MOV 


EMTBLK+4> RO 


INC 


RO 


BIC 


#1,R0 


MOV 


RO, URO 


JMP 


USRXIT 



; Oet user's load address 

; Round up 

j And force to even address 

} And return as top of handler 

i Ex it from EMT 



i 
i 
f 
f 

f 

i 



i 

i 



I 



f 
I 

c 

i 

t i 
> I 

i 
i 
c 
i 

t 

i 
. I 

I 

( 

i 

t 
I 
c 
i 
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. SFDAT, . SFriM, & . FPROT 



1 
2 
3 
4 

5 004454 

6 004460 

7 004464 

8 004470 

9 004472 

10 004476 

11 004502 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 004506 

28 

29 

30 

31 004512 

32 

33 

34 

35 004516 

36 004522 
37 

38 
39 
40 

41 004526 

42 004532 

43 004536 

44 004544 
45 

46 
47 
48 

49 004546 

50 004552 

51 004556 

52 004562 

53 004564 

54 004570 

55 004572 

56 004576 

57 004602 



004737 
004737 
013700 
001002 
013700 
016105 
010061 



004720 ' 
004770 ' 
0000040 

ooooooe 

OOOOOOG 
OOOOOOG 



004737 014700' 



004737 014110 



005063 OOOOOOG 
000137 015404' 



004737 
004737 
013761 
000760 



. SBTTL . SFDAT, . SFTIM, & . FPROT 
SFDAT — Set date in file entry 



SFDATE: CALL 
CALL 
MOV 
BNE 
MOV 

1*: MOV 
MOV 



SFCOM 

SFWRIT 

EMTBLK+4> RO 

1* 

SYSDAT, RO 

FD*DAT<R1),R5 

RO, FD*DAT<R1) 



LOCATE FILE ENTRY 

MAKE SURE WE HAVE WRITE ACCESS 

GET SPECIFIED DATE VALUE 

BR IF DATE SPECIFIED 

USE CURRENT DATE 

SAVE OLD FILE DATE 

SET NEW DATE IN FILE ENTRY 



If PIP is doing a . SFDAT, set the time entry in the file directory 

to the time from the file last looked up. 

This is done to preserve both date and time for a file across 

a PIP copy operation. 

GET CURRENT JOB INDEX NUMBER 

IS PIP RUNNING? 

BR IF NOT 

ARE WE USING THE OLD FILE'S DATE? 

BR IF NOT 



Add new file entry to directory cache 



MOVE 


CORUSR, R4 


BIT 


#«PIPRN, LSW6(R4) 


BEQ 


SFEXIT 


CMP 


RO, LSTFDD 


BNE 


SFEXIT 


MOV 


LSTFDT, FD*TIM(R1 



SFEXIT: CALL CSHADD 

Rewrite directory segment 

CALL WRTSEG 
Finished 



CLR 
JMP 



C. CSW(R3) 
USRXIT 



ADD ENTRY TO CACHE 



i REWRITE DIRECTORY SEGMENT 



; SAY CHANNEL IS CLOSED 
iEXIT 



SFTIM 



004720' SFTIME: CALL 

004770 ' CALL 

000004G OOOOOOG MOV 

BR 



Set file time in file entry 

SFCOM ; LOCATE FILE ENTRY 

SFWRIT ;MAKE SURE WE HAVE WRITE ACCESS 

EMTBLK+4, FD*TIM<R1) ; SET TIME VALUE IN DIRECTORY ENTRY 
SFEXIT ; REWRITE DIRECTORY SEGMENT 



FPROT — Set file protection 



004737 
004737 
113700 
001407 
020027 
001410 
012700 
000137 
042761 



004720 ' 
004770 ' 
000004G 

000001 

000003 

015356' 

OOOOOOG OOOOOOG 2*: 



SFPROT: 



BIC 



DO COMMON SETUP 

MAKE SURE WE HAVE WRITE ACCESS 

GET PROTECT/UNPROTECT FLAG 

BR IF UNPROTECT WANTED 

VALUE MUST BE OR 1 

BR IF PROTECT WANTED 

ERROR IF NOT OR 1 



#FS*PRO, FD*STA<R1) i UNPROTECT THE FILE 



CALL 


SFCOM i 


CALL 


SFWRIT i 


MOVE 


EMTBLK+4, RO > 


BEQ 


2$ > 


CMP 


RO, #1 i 


BEQ 


3* i 


MOV 


#3, RO ; 


JMP 


USRCLS 



I 
f 



i 

t 

€ 
I 

i 






i 
i 
i 
f 
i 
i 



: i 



I 

€ 
I 

» ( 
{ 

» ( 
C 
I 
i 
c 
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. SFDAT. . SFflM. & . FPROT 

58 004610 000736 BR SFEXIT i GO EXIT 

59 004612 052761 0000000 OOOOOOG 3*: BIS #FS*PRO, FD*STA(R1 ) ; PROTECT THE FILE 

60 004620 000732 BR SFEXIT 



i 
( 
i 

i 

i 
i 



TSUSR - 


-- File 


operation EMT's MACRO V 


. GFINF - 


— Get iTTformation about a file 


1 
2 








3 








4 








5 








6 








7 








e 








9 








10 


004622 


004737 


004720 ' 


11 


004626 


013700 


000004G 


12 


004632 


004737 


OOOOOOG 


13 








14 


004636 


016146 


OOOOOOG 


15 


004642 


106620 




16 








17 


004644 


005046 




18 


004646 


032761 


OOOOOOG OOOOOOG 


19 


004654 


001401 




20 


004656 


005216 




21 


004660 


106620 




22 








23 


004662 


016146 


OOOOOOG 


24 


004666 


106620 




25 








26 


004670 


016146 


OOOOOOG 


27 


004674 


106620 




28 








29 


004676 


010002 




30 


004700 


004737 


013622' 


31 


004704 


010046 




32 


004706 


106622 




33 








34 








35 








36 


004710 


005063 


OOOOOOG 


37 


004714 


000137 


015404' 



MACRO V05. 05 Wednesday 18-Jan-89 12:12 Page 12 



. SBTTL GFINF — Get information about a file 

GFINF Get the following information about a file: 
1. Size of the file. 

Protected/Unprotected status. 

Date of creation. 

Time of creation. 

Starting block number of file. 



OF INFO 



SFCOM 

EMTBLK+4, RO 
VALADW 



; LOCATE FILE ENTRY 

iGET ADDRESS OF USER'S INFO BUFFER 

;MAKE SURE ADDRESS IS VALID 



•(SP)i FILE SIZE 



CALL 

MOV 

CALL 
; File size 

MOV FD*LEN<R1) 

MTPD <R0)+ 
; Protected/Unprotected status 

CLR -<SP) i ASSUME FILE IS NOT PROTECTED 

BIT #FS*PRO, FD*STA(Rl)j IS FILE PROTECTED? 

BEQ 1* iBR IF NOT 

INC (SP) i RETURN 1 IF FILE IS PROTECTED 

1*: MTPD <R0)+ 
i Creation date 

MOV FD*DAT<R1)* -<SP); CREATION DATE 

MTPD <R0)+ 
; Creation time 

MOV FD*TIM<Rl).-<SP>i CREATION TIME 

MTPD <R0)+ 



Starting block number 



MOV 


RO, R2 


CALL 


SBCALC 


MOV 


RO, -(SP) 


MTPD 


(R2) + 


Finished 




CLR 


C. CSW(R3) 


JMP 


USRXIT 



iSAVE BUFFER POINTER 

; CALCULATE STARTING BLOCK NUMBER 

i RETURN STARTING BLOCK NUMBER 



iSAY CHANNEL IS CLOSED 
iEXIT 



c 

i 
f 
I 

i 

< 
( 
f 
i 
< 
f 



004737 007376 ' 



TSUSR — File operation EMT's 
. GFINF — Get information about 



i 
2 
3 
4 
5 

7 

8 

9 
10 
11 

13 004720 

14 

13 

16 

17 

18 004724 

19 004732 

20 004734 

21 004740 
22 

23 
24 

25 004744 

26 004750 

27 004752 

28 004756 
29 

30 

31 

32 004762 

33 

34 

35 

36 004766 

37 

38 

39 

40 

41 

42 

43 

44 

45 004770 

46 004776 

47 005000 

48 005004 

49 005010 

50 005014 
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Common setup routine used fay SFDATE and SFPROT routineB. 

The USR entry setup is done including moving the file spec and checking 

to see that the channel is open. 

The directory entry is found. 

If any errors are detected* an error return from the EMT is taken. 



Outputs: 
Rl = Address of directory entry for file. 
R3 = Address of CSW for channel. 
R4 = Index into device table for device being opened. 



SFCOM: 



CALL 



USR COM 



i DO USR ENTRY SETUP 



032764 0000000 OOOOOOG 

001004 

012700 000002 

000137 015356' 



004737 011376' 

103004 

012700 000001 

000137 015356' 



004737 015030 



Make sure this is a file structured device and uie have write 
access to it. 

BIT #DS*DIR,DVSTAT<R4) i IS THIS A FILE STRUCTURED DEVICE? 

BNE 1* iBR IF YES 

MOV #2, RO i RETURN ERROR CODE 2 IF NOT 

JMP USRCLS 



Locate directory entry for the file 



1$: 



CALL 


FNDFIL 


BCC 


3* 


MOV 


#1. RO 


JMP 


USRCLS 



; LOCATE THE DIRECTORY ENTRY 
;BR IF ENTRY FOR FILE FOUND 
; ERROR 1 IF CAN'T FIND ENTRY 



000207 



; Remove directory entry from cache 

i 

3*: CALL CSHDEL 3 REMOVE ENTRY FROM CACHE 

i 

i Finished 
> 

RETURN 



; Make sure that u/e have write access to a file. 

; Produce an abort if not. 

> 

i Inputs: 

i R3 = Address of CSW for channel opened to the file. 



032763 
001406 
004737 
012700 
000137 
000207 



ooooooe OOOOOOG sfwrit: bit 

BEQ 
015426' CALL 

177763 MOV 

015356' UMP 

1*: RETURN 



#CS*RON, C. CSW<R3) i DO WE HAVE WRITE ACCESS TO THE FILE? 



1« 

ERR NAM 
#-15, RO 
USRCLS 



BR IF YES 

SET FILE SPEC FOR TSKMQN ERROR MESSAGE 

ERROR IF NOT 

i SUCCESSFUL RETURN 



t 

i 



TSUSR - 


— File 


operation EMT's 


ALCEMT - 


~ Allocate a device 


1 
2 








3 








4 








5 








6 


005016 






7 








8 








9 








10 


005016 


1 1 3700 


0000000 


11 


005022 


001410 




12 


005024 


120027 


000001 


13 


005030 


001475 




14 


005032 


120027 


000002 


15 


005036 


001567 




16 


005040 


000137 


OOOOOOG 


17 








18 








19 








20 


005044 


032737 


0000000 


21 


005052 


001004 




22 


005054 


012700 


000005 


23 


005060 


000137 


OOOOOOG 


24 








25 








26 








27 


005064 


004737 


005636 ' 


28 








29 








30 








31 


005070 


004737 


005436 ' 


32 








33 








34 








35 








36 








37 


005074 


012702 


OOOOOOG 


38 


005100 


013700 


002014' 


39 


005104 


020062 


OOOOOOG 


40 


005110 


001406 




41 


005112 


062702 


OOOOOOG 


42 


005116 


020227 


OOOOOOG 


43 


005122 


103770 




44 


005124 


000410 




45 








46 








47 








48 


005126 


116200 


OOOOOOG 


49 


005132 


120160 


OOOOOOG 


50 


005136 


001030 




51 


005140 


110162 


OOOOOOG 


52 


005144 


000425 




53 








54 








55 








56 








57 


005146 


012702 


OOOOOOG 
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SBTTL ALCEMT 



Allocate a device 



The ALLOCATE EMT is used to allocate a device for exclusive access by 
the current job. 

ALCEMT: 

Determine if this is an Allocate* Deallocate* or test allocation EMT 

Get sub-function code 
0===>A1 locate 
l==>Deallocate 

i 2==>Test allocation 

/Invalid sub-function code 



MOVB 


EMTBLK, RO 


BEQ 


10* 


CMPB 


RO, #1 


BEQ 


DLCEMT 


CMPB 


RO, #2 


BEQ 


TLCEMT 


JMP 


BADEMT 



Allocate a device 



OOOOOOG 10*: 



BIT #PO*ALCi PRIVCO i Are uie authorized to allocate devices? 

i Br if yes 
i Error code 5 if not authorized 



BNE 


11* 


MOV 


#5, RO 


JMP 


SETERR 



; Do common allocate setup 

11*: CALL ALCCOM J Do common setup 

See if the device being allocated is currently allocated to another job 

CALL ALCTST /Test for allocation to another job 

Device is not currently allocated. 

Check to see if the device is already allocated by our job or a 

related job. 



4*: 



MOV #ALCTBL/ R2 

MOV FILDVU/RO 

CMP RO. AD*DVU(R2) 

BEQ 5* 

ADD #AD**SZ/ R2 

CMP R2, #ALCEND 

BLO 4* 

BR 7* 



Point to start of allocation table 

Get device # and index # 

Search for device in allocation table 

Br if found it 

Point to next entry 

Checked all entries? 

Br if not 

Br if not currently in allocation table 



Device is already in allocation table 



5*: 



MOVB 


AD*J0B<R2)/R0 


CMPB 


R1/LNPRIM(R0) 


BNE 


9* 


MOVB 


Rl/ AD*J0B<R2) 


BR 


9* 



Get # of job that ouins device 

Is primary job reallocating device? 

Br if not 

Let primary job take over device 



Device is not currently allocated. 

Search for a free entry in the allocation table. 



7*: 



MOV 



tALCTBL/ R2 



/Point to start of allocation table 



c 

I 

f 



i 
< 

c 

I 
f 
I 
< 

i 

i 

i 
I 

€ 

i 

i 
I 
( 



( 
i 
f 



I 

f 
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ALCEMT — Allocate a device 



58 005153 

59 005156 

60 005160 

61 005164 

62 005170 

63 005172 

64 005176 
65 

66 
67 

68 005202 

69 005210 

70 005214 
71 

72 
73 
74 005220 



105762 
001411 
062702 
020227 
103770 
012700 
000137 



OOOOOOG 

OOOOOOG 
OOOOOOG 

000003 
015370' 



2*: 



T3TB 


AD*J0B<R2> 


BEQ 


3* 


ADD 


#AD**S2, R2 


CMP 


R2, #ALCEND 


BLO 


2* 


MOV 


#3, RO 


JMP 


USRERR 



Is this entry free? 

Br if yes 

Point to next table entry 

Checked all entries? 

Loop if more to check 

Error 3 — Allocation table 

Error abort 



is full 



Found a free entry^ set it up for this device 



013762 002014' OOOOOOG 3$: 
110162 OOOOOOG 
105062 OOOOOOG 



MOV 
MOVB 

CLRB 



000137 015404' 



Finished 
9*: JMP 



FILDVU, AD*DVU<R2)i Store device and unit numbers 
R 1 , AD* JOB < R2 ) i Store job number 
AD*FLG(R2) > No flags yet 



USRXIT 



f 
f 

t 



f 



i 

I 

I 

( 



( 

I 

( 
i 
{ 

I « 

I i 

I 
I* 

C 
I 
I 
t 

c 

!. 

I ( 

( 



TSUSR - 


— File 


operation EMT's MACRO V 


DLCEMT - 

1 
2 
3 
4 
5 


— Deall 


ocate a 


device 


005224 


032737 


0000000 OOOOOOG 


6 


005232 


001004 




7 


005234 


012700 


000005 


8 


005240 


000137 


OOOOOOG 


9 


005244 


004737 


005636 ' 


10 


005250 


012702 


OOOOOOG 


11 








12 








13 








14 








15 


005254 


013700 


OOOOOOG 


16 


005260 


001015 




17 


005262 


120162 


OOOOOOG 


18 


005266 


001004 




19 


005270 


105062 


OOOOOOG 


20 


005274 


005062 


OOOOOOG 


21 


005300 


062702 


OOOOOOG 


22 


005304 


020227 


OOOOOOG 


23 


005310 


103764 




24 
25 
26 


005312 


000437 










27 








28 








29 


005314 


105737 


002014' 


30 


005320 


001434 




31 


005322 


013700 


002014' 


32 


005326 


020062 


OOOOOOG 


33 


005332 


001406 




34 


005334 


062702 


OOOOOOG 


35 


005340 


020227 


OOOOOOG 


36 


005344 


103770 




37 


005346 


000421 




38 


005350 


116200 


OOOOOOG 


39 


005354 


126061 


OOOOOOG OOOOOOG 


40 


005362 


001407 




41 


005364 


006200 




42 


005366 


010037 


OOOOOOG 


43 


005372 


012700 


000001 


44 


005376 


000137 


015370' 


45 


005402 


005062 


OOOOOOG 


46 


005406 


105062 


OOOOOOG 


47 








48 








49 








50 


005412 


000137 


015404' 
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. SBTTL DLCEMT — Deallocate a device 
Deallocate a device. 



DLCEMT: BIT 
BNE 
MOV 
JMP 

11*: CALL 
MOV 



#PO*ALC> PRIVCO J Are ue authorized to allocate devices? 

11* i Br if yes 

#5< RO > Error code 5 if not authorized 

SETERR 

ALCCDM J Do common setup 

#ALCTBL* R2 i Point to start of allocation table 



If the device name is null< deallocate all devices allocated by 
this user. 

Is device name null? 

Br if not 
1*: CMPB Rli AD*J0B(R2) i Is this entry an allocation for our job? 

Br if not 

Say no job using this entry 

Say entry is free 
3*: ADD #AD**SZ. R2 i Point to next allocation table entry 

Checked all entries? 

Loop if more to check 



The device name is not null. 
Deallocate the specified device. 



MOV 


FILSPC, RO 


BNE 


2* 


CMPB 


Rli AD*J0B(R2) 


BNE 


3* 


CLRB 


AD$J0B(R2} 


CLR 


AD*DVU<R2) 


ADD 


#AD**SZ. R2 


CMP 


R2. #ALCEND 


BLO 


1* 


BR 


9* 



2*: 


TSTB 


FILDVU 




BEQ 


9* 




MOV 


FILDVU, RO 


7*: 


CMP 


RO, AD*DVU<R2> 




BEQ 


5* 




ADD 


#AD**SZ, R2 




CMP 


R2, #ALCEND 




BLO 


7* 




BR 


9* 


5*: 


MOVE 


AD*J0B(R2),R0 




CMPB 


LNPRIM<RO),LN 




BEQ 


6* 




ASR 


RO 




MOV 


RO, URO 




MOV 


#1,R0 




JMP 


USRERR 


6*: 


CLR 


AD*DVU(R2) 




CLRB 


AD*J0B(R2) 




Finished 




i 

9*: 


JMP 


USRXIT 



Trying to deallocate TT? 

Ignore if yes 

Get device/unit ID for device being dealloc 

Search for specified device in alloc table 

Br if found it 

Point to next entry in table 

Checked all entries? 

Keep looking if not 

Device utas not allocated by anyone 

Get # of job that otuns this device 
[M<R1) ,• Is device owned by us? 
; Br if yes 

; Convert job index # to job # 
; Return owner job # in RO 
i Error 1 — Device is allocated to someone 

i Say this table entry is free 
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1 
2 
3 
4 

5 005416 005037 0000000 

6 005422 004737 005636' 
7 

8 

9 
10 005426 004737 005436' 
11 
12 
13 
14 005432 000137 015404' 



. SBTTL TLCEMT — Check to see if a device is allocated 
Check to see if a device is allocated by another user. 



TLCEMT: CLR 
CALL 



URO 
ALCCOM 



; Clear user's RO in case ALCCOM aborts 
i Do common setup 



See if device is currently allocated 

CALL ALCTST ; See if device is allocated to another user 

Finished — Device is not allocated to any other user 

JMF USRXIT > Device is not allocated to anyone else 



I 
I 
f 

c 

I 
I 

i 

f 
I 
€ 

i 
I 
i 

t 

C 

i 



( 
I 

I 



i 

i 
i 
I 
< 

i 
i 
# 
f 

c 
I 

c 

I 
i 
( 



TSUSR - 
ALCTST - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



— File 

— See i 
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f device is allocated to another user 



. SBTTL ALCTST — See if device is allocated to another user 

ALCTST is a subroutine called to determine if a device is allocated to 
another user or in use by another user. 

Inputs: 
FILSPC = File spec for device being allocated. 
FILDVU = Device index # and unit # for device being tested. 
Rl = Current job index number 

Outputs: 
If the device is in use by another user, error returns are made 
by jumping to USRERR. 
If the device is not allocated by other users* this routine returns. 



005436 
005440 



010246 
010346 



ALCTST: MOV 
MOV 



R2, -(SP) 
R3, -<SP) 



Clear returned value for RO in case device is not in use or allocated 



005442 005037 OOOOOOG 



CLR URO 
See if the device is legal 



005446 
005452 
005454 
005460 
005462 
005470 
005472 
005500 
005502 
005506 



005512 
005516 
005524 
005526 
005532 
005536 



005737 OOOOOOG 

001413 

105737 002014' 

001410 

123737 002014' OOOOOOG 6*: 

001010 

123737 002015' 00000 IG 

001004 

012700 000002 11*: 

000137 015370' 



TST 


FILSPC 


BEQ 


11* 


TSTB 


FILDVU 


BEQ 


11* 


CMPB 


FILDVU> SYINDX 


BNE 


12* 


CMPB 


FILDVU+1,SYUN 


BNE 


12* 


MOV 


#2, RO 


JMP 


USRERR 



iSay no use of device found yet 



jDon't allouj null device 
J Error if name null 
i Trying to allocate TT?" 
i Br if yes 

; Is this the system device? 
i Br if not 

-lils this the system unit? 
* Br if not 
} Invalid device if null 



See if the device is currently allocated to any user 



012702 OOOOOOG 12*: 

023762 002014' OOOOOOG 1*: 

001423 

062702 OOOOOOG 

020227 OOOOOOG 

103767 



MOV #ALCTBL. R2 i Point to start of allocation table 

CMP FILDVU/ AD*DVU(R2); Search for entry for this device and unit 

BEQ 5* i Br if found it 

ADD #AD**SZ/ R2 ; Point to next entry 

CMP R2, #ALCEND ; Searched all entries? 

BLO 1* i Loop if not 



Device is not currently allocated. 

See if any other job has a channel open to this device. 



005540 
005544 
005546 
005550 
005554 
005560 
005564 
005566 
005572 



004737 005756 ' 

103007 

006200 

010037 OOOOOOG 

012700 000004 

000137 015370' 

006200 

010037 OOOOOOG 

000416 



13*: 



CALL 


CHKUSE 


BCC 


13* 


ASR 


RO 


MOV 


RO, URO 


MOV 


#4, RO 


JMP 


USRERR 


ASR 


RO 


MOV 


R0> URO 


BR 


9* 



i See if device is being used by another job 

; Br if no other jobs have device open 

; Convert job index # to job # 

/Return in RO 

i Error 4 — Device in use by another job 

/Get # of job that is using the device 
/ Return in RO 



i 

i 

t 



i 
c 
i 
t 
I 
I 
I 
f 
I 
i 

4 
f 

i 
i 



I 
c 

i 

I 

< 



> 



I 
f 
t 



I. 
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58 ; 

59 i 

60 J 

61 005574 116203 OOOOOOG 5«: 

62 005600 010337 OOOOOOG 

63 005604 006237 OOOOOOG 

64 005610 126361 OOOOOOG OOOOOOG 

65 005616 001404 

66 005620 012700 000001 

67 005624 000137 015370' 

68 i 

69 ; 

70 i 

71 005630 012603 9*: 

72 005632 012602 

73 005634 000207 



The device is allocated. 

See if it is allocated to our job or to another job. 



i Get # of job to which dev is allocated 
; Return lob # to user in RO 



MOVE AD*J0B(R2),R3 

MOV R3, URO 

ASR URO 

CMPB LNPRIM(R3),LNPRIM(R1) J Is dev allocated to our family? 

BEQ 9* i Br if yes 

MOV #1#R0 j Error 1 — Device is allocated to another job 

JMP USRERR 

Device is not allocated to another user 



MOV 


(SP)-«-, R3 


MOV 


(SP>+, R2 


RETURN 





I 
I 

i 
i 

i 
i 

i 
« 
c 
I 
I 
i 



TSUSR 
ALCCOM 
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— Common setup for Allocate/Deallocate 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



005636 010146 



005640 004737 010004 



005644 013701 000002G 
005650 004737 007546' 



005654 005737 OOOOOOG 

005660 001430 

005662 004737 010226' 

005666 103016 

005670 020437 OOOOOOG 

005674 001004 

005676 020027 OOOOOOG 

005702 103417 

005704 000412 

005706 020437 OOOOOOG 

005712 001007 

005714 020027 177770G 

005720 002410 

005722 000403 

005724 020437 OOOOOOG 

005730 001004 



005732 012700 000002 
005736 000137 015370' 



005742 110437 002014' 
005746 110037 002015' 



005752 012601 
005754 000207 



. SBTTL ALCCOM — Common setup for Allocate/Deallocate 

Do common setup for Allocate/Deallocate EMT's. 

Outputs: 
USR data base is locked for exclusive access. 
FILSPC = File spec passed with EMT. 
FILDVU = Device index # and unit # 
R4 = Device index number. 

ALCCOM: MOV R1,-<SP) 

» 

i Gain exclusive access to USR data base 

CALL GETUSR ; Get exclusive use of USR 

Move file spec to FILSPC and apply any assigns 



MOV EMTBLK+2, R 1 
CALL GETSPC 



j Get pointer to device spec argument 
; Setup FILSPC 



Check to see if the device is valid 



3«: 



1*: 



TST 


FILSPC 


BEQ 


2* 


CALL 


CHKDEV 


BCC 


1* 


CMP 


R4, CLDEVX 


BNE 


3* 


CMP 


RO, #CLTOTL 


BLO 


2* 


BR 


8* 


CMP 


R4, CIDEVX 


BNE 


a* 


CMP 


RO, #CLT0TL-8. 


BLT 


2$ 


BR 


8$ 


CMP 


R4, LDDEVX 


BNE 


2$ 



Is the device null? 

Treat this as a special valid device 

See if device is valid 

Br if CHKDEV says it is valid 

Is this a CL unit? 

Br if not 

Valid CL unit number? 

Br if yes 

Invalid device 

Is this a CI unit? 

Br if not 

Is this a valid CI unit number? 

Br if yes 

Br if not 

Is this a logical disk? 

Br if not — Don't allow alloc of LD 



This is an invalid device 



8*: 



MOV 
JMP 



#2, RO 
USRERR 



} Error 2 



Invalid device 



This is a valid device^ Build the FILDVU word 



2*: 



MOVB 


R4, FILDVU 


MOVE 


RO, FILDVU+1 


Finished 




MOV 


(SP)+,R1 


RETURN 





j Set device index number 
i Set unit number 



I 
f 



i 

i 
f 
i 
f 
i 
I 
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TSUSR ■ 
CHKUSE - 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



File 
See i 



operation EMT's MACRO V05. 05 Wednesday 18-Jan-S9 12:12 Page 19 
f any channels open to a specified device 



005756 
005760 
005762 
005764 



005766 



010246 
010346 
010446 
010546 



005774 
005776 
006002 
006006 
006010 
006016 



005004 

013705 OOOOOOG 

005765 OOOOOOG 

001430 

026537 OOOOOOe 002014 

001024 



006020 
006024 
006026 
006030 
006032 
006034 
006040 
006042 
006044 
006046 



012702 OOOOOOG 

020201 

001415 

010203 

010246 

004737 015324'- 

010200 

012602 

130310 

001405 



. SBTTL CHKUSE — See if any channels open to a specified device 

CHKUSE is called to see if any jobs other than a specified job and its 
associated virtual jobs have any channels open to a specified device. 

Inputs: 
Rl = Job whose access is to be allowed. 
FILDVU = Device index # and unit # of device to be checked. 

Outputs: 
C-flag cleared ==> No job other than current job has 

channels opened to the device. 
C-flag set ==»> Some other job has a channel open to the device. 
RO = Job index number of job that is accessing the device. 
(Zero returned if no job is using the device). 



CHKUSE: MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R3i -(SP) 
R4, -<SP) 
R5, -<SP) 



Get exclusive access to job context block buffer 

OCALL GETCXT i Get exclusive access to context block buffer 

First check to see if the specified device is mounted by another user. 
We also check to see if any logical disk on the specified device is 
mounted. 



6*: 



CLR 
MOV 
TST 
BEQ 
CMP 
BNE 



R4 

CSHDEV, R5 
CD*DVU<R5) 
7* 



i Have not found any job accessing device 
; Point to start of mount table 
i Is this mount entry in use? 
; Br if not 



CD*DVU<R5), FILDVU ; Does this match device of interest? 
7* ; Br if not 



8*: 



We found a mount entry for the device we are checking. 

Now we must determine which job(s) have mounted the device. 

Get index # of last job 

Are we checking current job? 

Br if yes — It is ok 

Get index number 

Preserve R2 

Get pointer to flag for this job 

Get pointer to byte with flag bit 

Recover job number 

Does this job have device mounted? 

Br if not 

We have found a job that has the device mounted. 
See if it is ok for that job to access the device. 



MOV 


#LSTSL, R2 


CMP 


R2, Rl 


BEQ 


10* 


MOV 


R2«R3 


MOV 


R2, -<SP) 


CALL 


CDJFLG 


MOV 


R2<R0 


MOV 


(SP)+, R2 


BITB 


R3, <R0> 


BEQ 


10* 



006050 
006056 
006060 
006062 



126261 OOOOOOG OOOOOOG CMPB 

001073 BNE 

010204 MOV 

162702 000002 10*: SUB 



LNPRIM(R2>>LNPRIM(R1) i Is this job allowed to access the dev? 

5* } Br if not 

R2» R4 ; Remember # of job accessing device 

#2* R2 i More jobs to check? 
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64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 
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110 
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112 
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See if any channels open to a specified device 



006066 003356 



006070 062705 OOOOOOG 
006074 020537 OOOOOOG 
006100 103740 



006102 010405 



BOT 8* i Br if yes 

Check next mount table entry 



7*: ADD #CD**SZ, R5 
CMP R5, CSHDVN 
BLO 6« 



; Point to next mount table entry 

i Have {tie checked all mount table entries? 

) Br if not 



006104 012702 000002 



Finished checking all mount table entries 

MOV R4/ R5 i Get # of any job accessing device 

Begin loop to cycle through all jobs to see if any job has 
a channel opened to this device. 

MOV #2, R2 i Get index # of 1st job 

Ignore this job if it is not logged on. 



006110 032762 OOOOOOG OOOOOOG 1*: 
006116 001440 



BIT #*KINIT>LSW<R2> > Is this job logged on? 
BEQ 2* iBr if not 



Begin loop to cycle through all channels for this job 



006120 005003 
006122 



006130 032760 OOOOOOG OOOOOOG 
006136 001424 



3*: 



CLR 
OCALL 



R3 
GETCHA 



; Start with channel # 
;Get address of this channel 



006140 010004 

006142 016400 OOOOOOG 

006146 042700 177701 

006 1 52 11 6404 OOOOOOG 

006156 042704 177770 

006162 120037 002014' 

006166 001010 

006 1 70 1 20437 0020 1 5 ' 

006174 001005 



006176 126261 OOOOOOG OOOOOOG 
006204 001020 
006206 010205 



006210 005203 

006212 020327 OOOOOOG 

006216 103741 



Ignore this channel if it is not open 

BIT #CS«OPN, C. CSW(RO) ; Is this channel open? 
BEQ 4* i Br if not 

Get the device index number and the channel number out of the 
channel block. 

Get addr of channel block to R4 

Get CSW 

Extract device index number 

Get unit number 

Clear all but unit number 

Does it match the device of interest? 

Br if not 

Does unit number match? 

Br if not 

We found a job that has a channel open to the device 

CMPB LNPRIM<R2), LNPRIM<R1) ;Is this job allowed to access the dev? 

BNE 5* iBr if not 

MOV R2, R5 i Remember # of friendly job 

Check next channel (including Command file* log file, spool control 
and SAV file load channels) 

4*: INC R3 ; Advance the channel number 

;Checked all of user's channels? 
/Loop if more to check 



MOV 


RO, R4 


MOV 


C. CSW(R4),R0 


BIC 


#-^076, RO 


MOVE 


C. DEVQ(R4),R4 


BIC 


#'"C7, R4 


CMPB 


RO, FILDVU 


BNE 


4* 


CMPB 


R4, FILDVU+1 


BNE 


4* 



INC 


R3 


CMP 


R3, #NLCHN 


BLO 


3* 
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116 








117 








118 


006220 


062702 


000002 


119 


006224 


020227 


OOOOOOG 


120 


006230 


101727 




121 








122 








123 








124 








125 


006232 






126 


006240 


010500 




127 


006242 


000241 




128 


006244 


000405 




129 








130 








131 








132 


006246 






133 


006254 


010200 




134 


006256 


000261 




135 








136 








137 








138 


006260 


012605 




139 


006262 


012604 




140 


006264 


012603 




141 


006266 


012602 




142 


006270 


000207 





MACRO V05. 05 Wednesday 18-Jan-S9 12: 
open to a specified device 



Page 19- 



Check next job 



2«: 



ADD 


#2. R2 


CMP 


R2, #LSTSL 


BLOS 


1* 



i Get # of next job 
/ Chec ked all jobs? 
; Loop if more to check 



Finished checking all jobs 

See if a friendly job is using the device 



OCALL 


FRECXT 


MOV 


R5, RO 


CLC 




BR 


9* 



5*: 



i Free context block buffer 

; 6et # of any job accessing the device 

iSet flag saying device is free 



We found a job accessing the channel who is in conflict with testing job 

; Free context block buffer 

/Return job index number in RO 

> Set flag saying that device is in use 



I 
< 
I 
I 

4 
I 



9*: 



OCALL 


FRECXT 


MOV 


R2, RO 


SEC 




Finished 




MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 
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Mount a new file structure 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006302 
006306 



006310 
006314 
006320 
006324 
006326 
006332 
006334 
006342 
006344 
006352 



006354 
006360 
006364 
006366 
006372 
006376 
006400 
006404 



006410 
006414 
006420 
006424 
006432 
006436 
006442 
006444 
006450 
006452 
006456 
006462 
006466 
006472 



006272 004737 007134' 



006276 004737 006746 ' 



004737 
103105 



113705 
016500 
032700 
00 1 503 
032700 
001100 
032765 
001074 
032765 
001070 



013705 
005765 
001411 
062705 
020537 
103770 
012700 
000137 



004737 
005065 
005065 
012765 
010365 
010465 
001420 
113703 
006303 
066304 
010465 
072327 
062703 
005723 



. SBTTL MOUNT — Mount a new file structure 
The MOUNT EMT is used to introduce a new file structure to the system. 
MOUNT: CALL MNTCOM i DO COMMON SETUP 

i 

i First dismount the device to clear the directory file entries 

i 

CALL DMTSUB ; DISMOUNT THE DEVICE 

> 

i See if this device is mounted by other users. 



015210' 



CALL 
BCC 



CSHTST 
4* 



i SEARCH FOR DEVICE IN MOUNT TABLE 
i BR IF DEVICE IS ALREADY MOUNTED 



Device is not currently mounted by any job. 

Check to see if this device is eligible for directory caching. 



002014' 
OOOOOOG 
0000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



MOVE 

MOV 

BIT 

BEQ 

BIT 

BNE 

BIT 

BNE 

BIT 

BNE 



FILDVU, R5 

DVSTAT(R5),R0 

#DS*DIR,RO 

3* 

#DS*NRD, RO 

3* 



i GET DEVICE INDEX NUMBER 

i GET STATUS FLAGS FOR THIS DEVICE 

i IS THIS A DIRECTORY STRUCTURED DEVICE? 

iBR IF NOT — DON'T CACHE 

jNON RT-11 DIRECTORY STRUCTURE (MAG TAPE)? 

iBR IF YES — DON'T CACHE 



#DX*NRD> DVFLAG<R5) J Internal non-RT-dir flag set? 
3* i Br if yes 

#DX*NMT. DVFLAG(R5)i Is it flagged for no mount? 
3* i Br if yes 



Look for a free entry in the mount table. 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

000001 
015370' 



MOV CSHDEV, R5 

1*: TST CD«DVU<R5) 

BEQ 2$ 

ADD #CD**SZ, R5 

CMP R5, CSHDVN 

BLO 1* 

MOV #1,R0 

JMP USRERR 



POINT TO TABLE OF STRUCTURES 

SEARCH FOR A FREE SLOT IN THE TABLE 

BR IF FOUND ONE 

POINT TO NEXT TABLE ENTRY 

HIT END OF TABLE? 

BR IF NOT 

NO FREE SLOTS IN TABLE 



015266' 

OOOOOOG 

000002G 

177777 

OOOOOOG 

OOOOOOG 

002015' 

OOOOOOG 
OOOOOOG 
000002 
OOOOOOG 



We found a free entry in the mount table. 
Set up the entry for this device. 

2*: CALL GETDVU > GET PHYSICAL DEVICE # AND UNIT # 

; CLEAR FILE NAME (ASSUME NOT LOGICAL DISK) 

OOOOOOG MOV #177777, CD*T0P<R5)i ASSUME NOT LOGICAL DISK FOR TOP BLOCK 

STORE PHYSICAL DEVICE # AND UNIT # 
STORE BASE BLOCK # IF LOGICAL DISK 
BR IF NOT A LOGICAL DISK 
THIS IS A LOGICAL DISK, GET LD UNIT # 
CONVERT UNIT # TO WORD TABLE INDEX 
GET # OF BLOCK ABOVE TOP OF LOGICAL DISK 
SET TOP BLOCK NUMBER OF LOGICAL DISK 
TIMES 8 BYTES PER ENTRY 

POINT TO ENTRY FOR NAME OF THIS LD FILE 
SKIP OVER DEVICE NAME 



CALL 


GETDVU 


CLR 


CD*NAM(R5) 


CLR 


CD*NAM+2(R5) 


MOV 


#177777, CD*TO 


MOV 


R3, CD*DVU(R5) 


MOV 


R4, CD*BAS<R5) 


BEQ 


6* 


MOVB 


FILDVU+1,R3 


ASL 


R3 


ADD 


LDSIZE(R3),R4 


MOV 


R4, CD*T0P(R5) 


ASH 


#2, R3 


ADD 


#LDNAME, R3 


TST 


(R3) + 
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MOUNT - 
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a new f 


ile stru 


58 


006474 


012365 


OOOOOOG 


59 


006500 


011365 


0000020 


60 








61 








62 








63 








64 


006504 


010503 




65 


006506 


062703 


0000000 


66 


006512 


012700 


OOOOOOG 


67 


006516 


105023 




68 


006520 


077002 




69 








70 








71 








72 


006522 


113703 


OOOOOOG 


73 


006526 


004737 


015324' 


74 


006532 


150312 




75 


006534 


000137 


015404' 
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MOV (R3)+,CD*NAM<R5); STORE 1ST 3 CHARS OF FILE NAME 
MOV (R3),CD*NAM+2<R5); STORE 2ND 3 CHARS OF NAME 

Initially clear all mount flags saying device is not mounted by 
anu lob 



6*: 
5*: 

5 
} 
i 

4$: 
3*: 



MOV 


R5, R3 


ADD 


#CD*JOB> R3 


MOV 


#CD««UB> RO 


CLRB 


(R3) + 


SOB 


RO, 5* 



POINT TO SET OF MOUNT-FLAGS FOR 

ALL JOBS 
GET # BYTES USED FOR MOUNT FLAGS 
SAY DEVICE NOT MOUNTED BY ANY JOBS 



Set mount flag for our job 



MDVB 


CORUSR, 


CALL 


CDJFLO 


BISB 


R3, (R2) 


JMP 


USRXIT 



Get our job index number 
GET MOUNT FLAG FOR OUR JOB 
SET MOUNT FLAG FOR OUR JOB 
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3 








4 








5 


006540 






6 








7 








8 








9 








10 


006540 


1 1 3700 


OOOOOOG 


11 


006544 


120027 


000001 


12 


006550 


001430 




13 


006552 


120027 


000002 


14 


006556 


001442 




15 


006560 


120027 


000003 


16 


006564 


001414 




17 


006566 


120027 


000004 


18 


006572 


001413 




19 


006574 


120027 


000005 


20 


006600 


001412 




21 








22 








23 








24 


006602 


004737 


007134' 


25 








26 








27 








28 


006606 


004737 


006746 ' 


29 








30 








31 








32 


006612 


000137 


015404' 


33 








34 








35 








36 


006616 


000137 


OOOOOOG 


37 








38 








39 








40 


006622 


000137 


OOOOOOG 


41 








42 








43 








44 


006626 


000137 


OOOOOOG 


45 








46 








47 








48 








49 


006632 


004737 


010004' 


50 


006636 


013700 


OOOOOOG 


51 


006642 


005060 


OOOOOOG 


52 


006646 


005060 


OOOOOOG 


53 


006652 


016000 


OOOOOOG 


54 


006656 


001371 




55 


006660 


000137 


015404' 
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;ure 

. SBTTL DISMNT — Dismount a file structure 

> —————————————————————————————————— __________ __________________________ 

i The DISMNT EMT is used to remove a file structure from the system tables. 

i 

DISMNT: 

) 

; Determine if this is a request to dismount a specific file structure 

i or a request to clean out the directory cache. 

Get sub-function code 

Clean out directory cache? 

Br if yes 

Dismount all devices for job? 

Br if yes 

Dismount a LD structure? 

Br if yes 

Get information about a LD structure? 

Br if yes 

Dismount all LD structures? 

Br if yes 

This is a request to dismount a file structure 

CALL MNTCOM i Do common setup 

Call DMTSUB subroutine to do real dismount work. 



MOVE 


EMTBLK, RO 


CMPB 


RO, #1 


BEQ 


CSHDMT 


CMPB 


RO, #2 


BEQ 


DMTALL 


CMPB 


RO, #3 


BEQ 


1* 


CMPB 


RO, #4 


BEQ 


2* 


CMPB 


RO, #5 


BEQ 


3* 



1*: 



CALL DMTSUB 
Finished 

JMP USRXIT 
Dismount a LD structure 

JMP LDDEMT 



Do the dismount 



Dismount a LD 



i Get information about a LD structure 

i 

2*: JMP LDIEMT i Get info about a LD 

i 

} Dismount all LD structures 

3*: JMP LDAEMT i Dismount all LD's 

CSHDMT removes all entries from the directory cache. 



CSHDMT: CALL 
MOV 

1*: CLR 
CLR 
MOV 
BNE 
JMP 



GETUSR 

CSHHD, RO 

FC*CDX(RO) 

FD*NAM(RO) 

FC*LNK(RO),RO 

1* 

USRXIT 



GET EXCLUSIVE USE OF USR 

POINT TO 1ST CACHED DIRECTORY ENTRY 

SAY ENTRY IS EMPTY 

LINK TO NEXT ENTRY 

BRANCH BACK IF ANOTHER TO FREE 

FINISHED 
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Dismount all mounted devices for job 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



006664 



006664 004737 010004' 



006670 113703 OOOOOOG 

006674 005005 

006676 004737 015324' 



006702 013705 OOOOOOG 

006706 005765 OOOOOOG 

006712 001406 

006714 010500 

006716 060200 

006720 130310 

006722 001402 

006724 004737 006766 ' 

006730 062705 OOOOOOG 

006734 020537 OOOOOOG 

006740 103762 



. SBTTL DMTALL — Dismount all mounted devices for job 
Dismount all devices for this job. 
DMTALL: 

Gain exclusive access to USR data base 

CALL GETUSR # Get exclusive access to USR 

Get flag bit that identifies our job in mount table entries 



MOVB 

CLR 

CALL 



CORUSR, R3 

R5 

CDJFLG 



Get our job index number 
Say no entry to point to yet 
Get flag bit for our job 



Locate each device this is mounted by our job 



1*: 



2*: 



MOV 


CSHDEV, R5 


TST 


CD*DVU(R5) 


BEQ 


2* 


MOV 


R5, RO 


ADD 


R2, RO 


BITB 


R3. (RO) 


BEQ 


2* 


CALL 


DMTDEV 


ADD 


#CD**SZ. R5 


CMP 


R5, CSHDVN 


BLO 


1* 



Point to 1st cache device entry 

Is this entry in use? 

Br if not 

Get address of entry 

Point to byte luith our job flag bit 

Is this device mounted by our job? 

Br if not 

Dismount this entry 

Point to next mount table entry 

Checked all entries? 

Loop if not 



Say job has no logical disks mounted 



3*: 



006742 000137 015404' 



MOV 


#MAXLD, RO 


MOV 


#LDNAME, R5 


: CLR 


(R5) 


ADD 


#8. . R5 


SOB 


RO, 3* 


Finished 




JMP 


USRXIT 



; Get # of LD units 

; Point to LD name table 

J Say this LD not in use 

; Point to next LD table entry 

i Br if more to do 



; Finished 
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DMTALL — Dismount all mounted devices for job 



I 

€ 
i 
t 
t 



J. 

2 

3 

4 

5 

6 

7 

8 006746 010546 

9 
10 
11 

12 006750 004737 015210' 

13 006754 103402 
14 

15 

16 

17 006756 004737 006766' 

18 

19 

20 

21 006762 012605 

22 006764 000207 



* The DMTSUB subroutine is called to do the actual work of dismounting 

i a file structure. 

i 

; Inputs: 

; FILDVU = Device/Unit number info for device being dismounted. 

i 

DMTSUB : MOV R 5, ~ < SP > 

; Locate entry for device in cached-device table. 



CALL CSHTST 
BCS 9* 



i Locate entry for device in cached dev table 
i Br if device is not mounted 



i Device is mounted* dismount it. 

i 

CALL DMTDEV i Dismount the device 

; Finished 

9*: MOV <SP)+, R5 
RETURN 
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— Remove entry from cache table 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006766 010246 
006770 010346 



006772 113703 OOOOOOG 
006776 004737 015324' 
007002 140312 



007004 010503 

007006 062703 OOOOOOG 

007012 012700 OOOOOOG 

007016 105723 

007020 001042 

007022 077003 



007024 005765 OOOOOOG 

007030 001011 

007032 016500 OOOOOOG 

007036 120037 OOOOOOG 

007042 001004 

007044 000300 

007046 120037 00000 IG 

007052 001425 



007054 005737 OOOOOOG 

007060 001404 

007062 016503 OOOOOOG 

007066 004777 OOOOOOG 



007072 005065 OOOOOOG 



007076 013700 OOOOOOG 

007102 020560 OOOOOOG 

007106 001004 

007110 005060 OOOOOOG 

007114 005060 OOOOOOG 

007120 016000 OOOOOOG 



. SBTTL DMTDEV — Remove entry from cache table 
DMTDEV is called to remove a particular entry from the mount table. 
Inputs: 



R5 



Pointer to cached device entry to be removed. 



DMTDEV: MOV 
MOV 



R2, -<SP> 
R3, -<SP) 



Reset mount flag for our job. 



MOVB 
CALL 
BICB 



CORUSR, R3 
CDJFLG 
R3, (R2> 



Get our job index number 
GET MOUNT FLAG FOR OUR JOB 
RESET MOUNT FLAG FOR OUR JOB 



See if any other users still have device mounted. 



1*: 



MOV 


R5, R3 


ADD 


#CD*JOB, R3 


MOV 


#CD**UB, RO 


TSTB 


<R3) + 


BNE 


9* 


SOB 


RO, 1* 



Point to bytes with mount flags 

GET # BYTES WITH MOUNT FLAGS 

ANY OTHER JOBS HAVE THIS DEVICE MOUNTED? 

BR IF YES 



TST 


CD*BAS<R5) 


BNE 


2$ 


MOV 


CD*DVU<R5>.R0 


CMPB 


RO, SYINDX 


BNE 


2$ 


SWAB 


RO 


CMPB 


RO, SYUNIT+1 


BEQ 


9* 



No other jobs have this device mounted. 

Check if this is the SY disk. If so, don't dismount it. 

IS THIS A LOGICAL DISK? 

BR IF YES 

GET DEVICE # AND UNIT « 

IS THIS SY DEVICE? 

BR IF NOT 

GET UNIT # TO LOW-ORDER BYTE 

IS THIS SY UNIT? 

BR IF YES — DON'T DISMOUNT SY 

This is not SY device, do the actual dismount. 

Tell data caching facility to clean out the data cache for this device. 

2*: TST CSHALC J Is data caching genned into system? 

i Br if not 

i Get device and unit number for CSHCLN 
; Clean out the data cache 

Say device is no longer mounted 

5*: CLR CD*DVU(R5) ; SAY DEVICE IS NOT MOUNTED 

Remove file entries for this device from directory cache. 



TST 


CSHALC 


BEQ 


5* 


MOV 


CD*DVU(R5),R3 


CALL 


eCSHCLN 



3*: 



4*: 



MOV 


CSHHD, RO 


CMP 


R5, FC«CDX<RO) 


BNE 


4* 


CLR 


FC*CDX(RO) 


CLR 


FD*NAM<RO) 


MOV 


FC*LNK<RO),RO 



POINT TO FIRST CACHED DIRECTORY ENTRY 

IS FILE ON THIS DEVICE? 

BR IF NOT 

REMOVE ENTRY FROM CACHED DIRECTORY 

i CHAIN TO NEXT ENTRY 



t 
f 
I 

f 
i 
( 
f 
f 

i 
€ 

i 

€ 
f 

c 



i 



I 
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DMTDEV — Remove entry from cache table 

58 007124 001366 BNE 3* i BR IF THERE IS ANOTHER 

59 i 

60 i Finished 

61 j 

62 007126 012603 9*: MOV <SP)+, R3 

63 007130 012602 MOV <SP)+, R2 

64 007132 000207 RETURN 



€ 



I 
f 
I 

( 
I 

I 

t 

< 



TSUSR — File operation EMT's 
MNTCOM -- MOUNT/DISHOUNT common 



1 








2 








3 








4 








5 








6 








7 








8 








9 








10 


007134 


010146 




11 


007136 


010446 




12 








13 








14 








15 


007140 


004737 


010004' 


16 








17 








18 








19 


007144 


013701 


000002G 


20 


007150 


004737 


007546 ' 


21 








22 








23 








24 


007154 


004737 


010226' 


25 


007160 


103006 




26 


007162 


004737 


015426' 


27 


007166 


012700 


177776 


28 


007172 


000137 


015370' 


29 








30 








31 








32 


007176 


110437 


002014' 


33 


007202 


110037 


002015' 


34 








35 








36 








37 


007206 


012604 




38 


007210 


012601 




39 


007212 


000207 
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. SBTTL MNTCOM — MOUNT/DISMOUNT common setup 
Do common setup for Mount/Dismount EMT's. 



Outputs: 
USR data base locked for exclusive access. 
FILSPC = File spec passed with EMT. 
FILDVU = Device index # & Unit #. 



MNTCOM: MOV 
MOV 



R 1 , - ( SP ) 
R4, -(SP) 



Gain exclusive access to USR data base. 

CALL GETUSR ; GET EXCLUSIVE USE OF USR 

Move file spec to FILSPC and perform any assigns. 



MOV EMTBLK+2, Rl 
CALL GETSPC 



; POINT TO DEVICE SPEC ARG 
i SET UP FILSPC 



Check to see if device is legal. 



CALL 


CHKDEV 


BCC 


1* 


CALL 


ERRNAM 


MOV 


#-2, RO 


JMP 


USRERR 



Build FILDVU word. 



1*: 



MOVE 


R4, FILDVU 


MOVE 


RO, FILDVU+1 


Finished 




MOV 


(SP)+, R4 


MOV 


(SP)+, Rl 


RETURN 





LOOK UP THE DEVICE NAME 

BR IF DEVICE IS OK 

SET FILE SPEC FOR TSKMON ERROR MESSAGE 

INVALID DEVICE NAME 



iSET DEVICE INDEX # 
; SET UNIT # 



I 
i 

t 



i 
( 

i 
I 



i 

I 

c 



TSUSR - 


— File 


operation EMT's 


CPYMNT - 

i 
2 
3 


— Copy 


mount en 


tries fr 








4 








5 








6 








7 








S 








9 


007214 


010246 




10 


007216 


010346 




11 


007220 


010446 




12 


007222 


010546 




13 


007224 


010204 




14 








15 








16 








17 


007226 


013705 


OOOOOOG 


18 


007232 


010403 




19 


007234 


004737 


015324' 


20 


007240 


130312 




21 


007242 


001405 




22 


007244 


113703 


OOOOOOG 


23 


007250 


004737 


015324' 


24 


007254 


150312 




25 


007256 


062705 


OOOOOOG 


26 


007262 


020537 


OOOOOOG 


27 


007266 


103761 




28 








29 








30 








31 


007270 


012605 




32 


007272 


012604 




33 


007274 


012603 




34 


007276 


012602 




35 


007300 


000207 
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. SBTTL CPYMNT — Copy mount entries from another job 



CPYMNT is called to mount for the current job all of the devices 
mounted by another job. 

Inputs: 
R2 = Job index number of job whose mounts are to be copied. 



: MOV 


R2, 


-<SP> 


MOV 


R3, 


-(SP) 


MOV 


R4, 


-<SP) 


MOV 


R5, 


-(SP) 


MOV 


R2, 


R4 



i Save job index in R4 

Begin to search through mount table for mounts for other job 

i Point to start of mount table 
1*: MOV R4# R3 /Get # of job we ars copying from 

Get job flag for other job 
Is this entry mounted by other job? 
Br if not 

Get our job index # 
Get mount bit for our job 
Say device is mounted by our job 
?*: ADD #CD**SZj R5 ; Point to next mount table entry 

Checked all entries? 
Br if not 



MOV 


CSHDEV. R5 


MOV 


R4, R3 


CALL 


CDJFLG 


BITS 


R3, <R2) 


BEQ 


2« 


MOVB 


C0RUSR,R3 


CALL 


CDJFLG 


BISB 


R3, <R2> 


ADD 


#CD**SZ, R5 


CMP 


R5, CSHDVN 


BLO 


1* 


Finished 




MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+. R2 


RETURN 





I 

I 



i 
I 

i 

I 
€ 
I 



i 
i 



TSUSR 
CLRDIR 
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— Remove directory entries from dir cache 



I 
I 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



007302 010546 

007304 013746 002014 



007310 110237 002014' 

007314 116300 OOOOOOG 

007320 042700 177770 

007324 1 1 0037 0020 1 5 ' 



007330 004737 015210' 
007334 103414 



007336 013700 0000000 

007342 020560 OOOOOOG 

007346 001004 

007350 005060 OOOOOOG 

007354 005060 OOOOOOG 

007360 016000 OOOOOOG 

007364 001366 



007366 012637 002014' 
007372 012605 
007374 000207 



. SBTTL CLRDIR — Remove directory entries from dir cache 

This routine is called when a user-mode program writes to a directory 
structured device that has been opened in non-file-structured mode. 
It cleans out all directory cache entries for the device that is being 
written to. 

Inputs: 
R2 = Device index number 
R3 = Pointer to Channel Status Block being used by write 



CLRDIR: MOV 
MOV 



R5i -(SP) 
FILDVU. -<SP) 



; Save current device/file index info 
Set up device and unit numbers in FILDVU 



MOVE R2, FILDVU 

MOVE C. DEVQ<R3)>R0 

BIC #-^C<7>, RO 

MOVE RO, FILDVU+1 



Set device index number 
Get device unit number 
Clear out all but unit number 
Set unit number 



See if this device is being cached 



CALL 

BCS 



CSHTST 
9* 



> Is this device being cached? 
i Br if not 



Clean out directory cache entries for this device 



1$: 



2*: 



MOV 
CMP 
BNE 
CLR 
CLR 
MOV 
BNE 

Finished 



9*: 



MOV 
MOV 
RETURN 



CSHHD, RO 

R5, FC*CDX<RO) 

2* 

FC*CDX(RO) 

FD*NAM(RO) 

FC*LNK<RO),RO 

1* 



(SP)+, FILDVU 
<SP)+, R5 



; Point to 1st cached dir entry 

; Is file on this device? 

i Br if not 

j Remove entry from directory cache 

iChain to next cache entry 
; Loop if more to check 



( 

I 

( 
I 

I 



i 
I 
t 
t 

I 

I. 



TSUSR - 
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3 
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4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 








IS 








19 








20 








21 








22 








23 








24 








25 








26 


007376 


010146 




27 


007400 


013703 


OOOOOOG 


28 








29 








30 








31 


007404 


004737 


010004' 


32 








33 








34 








35 


007410 


032763 


OOOOOOG 


36 


007416 


001403 




37 


007420 


005000 




38 


007422 


000137 


015370' 


39 








40 








41 








42 


007426 


013701 


000002G 


43 


007432 


042701 


000001 


44 


007436 


004737 


007546 ' 


45 








46 








47 








48 


007442 


004737 


010226' 


49 


007446 


103006 




50 


007450 


004737 


015426' 


51 


007454 


012700 


177776 


52 


007460 


000137 


015370' 


53 








54 








55 


007464 


110437 


002014' 


56 


007470 


110037 


002015' 


57 
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. SBTTL USRCOM — Common setup 

USRCOM is called to perform the common setup operation for 
. lookup. . enter. . delete and . rename emts. 
It performs the following functions: 

1. Claim the USR data base for current user. 

2. Make sure channel is closed. 

3. Move file spec to FILSPC buffer and perform any assigns. 

4. Test that the specified device is legal. 

5. Mark channel open and set up device index and unit #. 



Inputs: 
EMTBLK = Emt argument block. 
CHNADR = Address of CSW for current 



channel. 



Outputs: 
Channel area = Marked as open* device index # and unit # set up. 
FILSPC = File spec after any assign performed. 
FILDVU = Device index # in low-byte, unit # in high byte. 
ASNSIZ =B Size specified with ASSIGN command for logical device. 

if no size uias specified with assign. 
RO = Unit number of device being accessed. 
R3 = Address of CSW for channel. 
R4 = Index into device table for device being opened. 



USRCOM: MOV 
MOV 



Rl. -(SP) 
CHNADR. R3 



J GET ADDRESS OF CURRENT CHANNEL AREA 



Claim USR data base for us 

CALL 6ETUSR i GAIN EXCLUSIVE ACCESS TO USR DATA BASE 

Make sure channel is closed now. 

BIT #CS*OPN. C. CSW<R3)J IS CHANNEL OPEN NOW? 

BEQ 2* iBR IF NOT OPEN NOW 

CLR RO i RETURN ERROR CODE OF O 

JMP USRERR 

Move file spec to FILSPC and apply any assigns. 



?*: MOV EMTBLK+2, Rl 
BIC #1,R1 
CALL GETSPC 



GET ADDRESS OF FILE SPEC IN USER'S AREA 
MAKE SURE ADDRESS IS EVEN 
GET FILE SPEC TO FILSPC 



Now check to see if the device is legal. 



IS THE DEVICE LEGAL? 

BR IF RECOGNIZED DEVICE 

SET FILE SPEC FOR TSKMON ERROR MESSAGE 

INVALID DEVICE 



CALL CHKDEV 

BCC 1* 

CALL ERRNAM 

MOV #-2. RO 

JMP USRERR 
i (At this point R4 has device table index and RO has device unit #) 
i Set up FILDVU word. 
1*: MOVB R4. FILDVU i SET DEVICE # 

MOVB RO, FILDVU+1 J SET UNIT # 



i 
I 

f 



I 
I 

I 

i 
i 
I 

i 

i 

i 

i 
t 
i 
i 
i 
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58 
59 

60 007474 

61 007500 

62 007504 

63 007512 

64 007516 

65 007522 

66 007526 
67 

68 

69 

70 007532 

71 

72 

73 

74 007536 

75 

76 

77 

78 007542 

79 007544 



110063 OOOOOOG 

010463 OOOOOOG 

052763 OOOOOOG OOOOOOG 

005063 OOOOOOG 

005063 OOOOOOG 

005063 OOOOOOG 

105063 OOOOOOG 



004737 010446' 



004737 010602' 



012601 
000207 



Set up information in channel. 

MOVE RO, C. DEVQ(R3) ; SET DEVICE UNIT # 

MOV R4, C. CSW<R3) J SET DEVICE TABLE INDEX # IN CSW 

BIS #CS*OPN, C. CSW (R3); MARK CHANNEL AS OPEN 

CLR C. SBLK<R3) ; STARTING BLOCK # OF FILE 

CLR C. LENG<R3) i ALLOCATED LENGTH OF FILE 

CLR C. USED<R3) i NO BLOCKS WRITTEN TO FILE YET 

CLRB C. NUMQ(R3) ; NO I/O OPERATIONS QUEUED ON CHANNEL YET 

See if this device is allocated to some other user 

CALL CHKALC i Check for allocation problents 

See if uie are authorized to access this device and file. 

CALL CHKACC i CHECK FOR ACCESS AUTHORIZATION 

Return successfully 

MOV (SP)+, Rl 
RETURN 



i 
c 

t 



I 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 007546 

14 007550 

15 007552 
16 

17 
18 

19 007556 

20 007562 
21 

22 
23 

24 007566 

25 007572 

26 007574 

27 007602 

28 007604 

29 007610 

30 007614 

31 007616 

32 007622 

33 007626 

34 007630 
35 

36 
37 

38 007632 

39 007636 

40 007642 

41 007646 

42 007650 

43 007654 

44 007662 

45 007666 

46 007670 

47 007674 

48 007700 

49 007702 

50 007706 
51 

52 
53 

54 007712 

55 007714 

56 007716 



SBTTL GETSPC — Get file spec from user's area 



GETSPC is called to move a file specification from the user's address 
space to the FILSPC buffer area. 

Inputs: 
Rl = Address of file spec in user's area. 

Outputs: 
FILSPC = File spec after processing. 
ASNSIZ == Size specified with ASSIGN for logical device <0 if not spec) 



010146 
010246 
005037 



012702 
004737 



013700 
001447 
032737 
001043 
012702 
020062 
001406 
062702 
020227 
103770 
000430 



012701 
016211 
016200 
001421 
010061 
016261 
016200 
001402 
010061 
016200 
001404 
010061 
010037 



012602 
012601 
000207 



002044 ' 



OOOOOOG 
007720 ' 



OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



GETSPC: MOV 
MOV 
CLR 



R1,"<SP) 
R2, -<SP) 
ASNSIZ 



;N0 ASSIGN SIZE YET 
Copy the file specification from the user's area into FILSPC. 



MOV #FILSPC, R2 
CALL CPYSPC 



Copy spec into FILSPC 

Copy file spec from user's area 



Apply any assignments to this file spec. 



J*: 



MOV 


FILSPC, RO 


BEQ 


4* 


BIT 


#AF»BYA, RUNFLG 


BNE 


4* 


MOV 


#ASNTBL, R2 


CMP 


RO, AT*L0G(R2) 


BEQ 


3* 


ADD 


#AT**SZ, R2 


CMP 


R2, #ASNEND 


BLO 


2* 


BR 


4$ 



GET DEVICE NAME 

BR IF NULL NAME 

Should u;e bypass logical assignment? 

Br if yes 

POINT TO START OF ASSIGN TABLE 

SEARCH FOR DEVICE NAME IN ASSIGN TABLE 

BR IF FOUND 

TRY NEXT ENTRY 

DONE ALL? 

BR IF NOT 

NAME WAS NOT ASSIGNED 



Name was assigned. Substitute assigned name. 



OOOOOOG 
OOOOOOG 
OOOOOOG 

000002 

000002G 000004 
OOOOOOG 

000006 
OOOOOOG 

000010 
002044 ' 



3*: 



8*: 



4*: 





MOV 


#FILSPCiRl 




MOV 


AT*DEV(R2), <R1) 




MOV 


AT*FIL<R2>,R0 




BEQ 


4* 




MOV 


R0,2(R1) 




MOV 


AT*FIL+2<R2),4< 




MOV 


AT*EXT<R2),R0 




BEQ 


8* 




MOV 


R0,6<R1) 




MOV 


AT*SIZ(R2),R0 




BEQ 


4* 




MOV 


RO, 8. <R1) 




MOV 


RO, ASNSIZ 


f 


inished 






MOV 


<SP)+, R2 




MOV 


(SP)+>R1 




RETURN 





POINT TO AREA WITH FILE SPEC 

PUT IN REAL DEVICE NAME 

WAS FILE NAME ASSIGNED? 

BR IF NOT 

PUT IN FILE NAME 

) 

WAS FILE EXTENSION ASSIGNED? 

BR IF NOT 

PUT IN FILE EXT 

WAS FILE SIZE ASSIGNED? 

BR IF NOT 

PUT IN FILE SIZE 

RETURN ASSIGN SIZE IN ASNSIZ 



i 



c 

4 

f 

f 
€ 

I 
{ 
i 
i 

< 
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i 
I 

f 



i 



I' 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 



SBTTL CPYSPC 



Copy file specification from user's area 



007720 



007720 
007722 
007726 
007730 
007734 



007740 
007746 
007750 
007754 
007756 
007760 
007762 
007766 
007770 
007774 
007776 
010000 



010100 
004737 
103004 
012700 
000137 



032737 
001410 
013700 
160100 
006200 
001410 
020027 
101402 
012700 
106521 
012622 
077003 



OOOOOOG 

177766 
015356' 



Copy a 5-uiord file specification from the user's area into a 
system buffer. 

Inputs: 
Rl == Address of file specification in user's area. 
R2 = Address of 5-u»ord buffer to receive specification. 

CPYSPC: 

Make sure address of file spec is legal 

i GET ADDRESS OF FILE SPEC BUFFER 
MAKE SURE ADDRESS IS LEGAL 
BR IF ADDRESS IS OK 
GET ERROR ABORT CODE 
ABORT THE JOB 

Copy file specification from user's area to FILSPC. 



MOV 


Rl.RO 


CALL 


UACHKW 


BCC 


5* 


MOV 


#-12, RO 


JMP 


USRCLS 



OOOOOOG OOOOOOG 5*: 
OOOOOOG 

000004 

000004 6*: 

1$: 



BIT 


#UMODE, EMTPS 


BEQ 


6$ 


MOV 


ODTBAS, RO 


SUB 


R1,R0 


ASR 


RO 


BEQ 


9* 


CMP 


RO, #4. 


BLOS 


1* 


MOV 


#4. , RO 


MFPD 


<R1) + 


MOV 


<SP)+, <R2) + 


SOB 


RO, 1* 



010002 000207 



Finished 
9*: RETURN 



WAS EMT DONE IN USER OR KERNEL MODE? 

BR IF KERNEL MODE 

GET THE USER'S HIGH MEMORY LIMIT 

SUBTRACT ADDRESS OF FILE SPEC AREA 

CONVERT TO NUMBER OF WORDS 

BR IF NOTHING TO MOVE 

COMPARE WITH SIZE OF FULL FILE SPEC 

BR IF WE MUST MOVE LESS BECAUSE OF MEMORY TOP 

# WORDS TO MOVE 

GET A WORD FROM USER'S AREA 

MOVE TO FILSPC 



f 

c 

c 



TSUSR 
GETUSR 
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Claim usr data base for our job 



. SBTTL GETUSR 



Claim usr data base for our job 



3 
4 
5 
6 

7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



010004 010546 



010006 

010014 113700 OOOOOOG 

010020 001426 

010022 120037 OOOOOOG 

010026 001426 



GETUSR is called to gain exclusive access to the usr data base. 
If the data base is currently in use by some other job> our job 
is suspended until it is freed. 

GETUSR: MOV R5, -<SP) 

See if u»e can access the USR 

4*: 



DISABL 

MOVE USRJOB, RO 

BEQ 1$ 

CMPB RO, CORUSR 

BEQ 2* 



DISABLE INTERRUPTS 
IS USR AVAILABLE NOW? 
BR IF YES 

DO WE ALREADY OWN USR? 
BR IF YES 



Someone else owns the USR nou». 
Suspend our job until we can get it. 



ENABL 




MOVE 


EXCUOB, R5 


CLRB 


EXCJOB 


MOV 


#S*QUSR, RO 


CALL 


QNSPNX 


CALL 


CHKABT 


CMP 


R5, CORUSR 


BNE 


4* 


MOVE 


R5, EXCJOB 


BR 


4* 



010030 

010036 113705 OOOOOOG 

010042 105037 OOOOOOG 

010046 012700 OOOOOOG 

010052 004737 OOOOOOG 

010056 004737 OOOOOOG 

010062 020537 OOOOOOG 

010066 001347 

1 0070 1 1 537 OOOOOOG 

010074 000744 



010076 113737 OOOOOOG OOOOOOG 1*: 
010104 2*: 

010112 00 5237 002026 ' 



010116 10 5737 OOOOOOG 

010122 001404 

010124 012700 177765 

010130 000137 015370' 



Initialize USR data base. 
010134 012737 177777 002002' 3«: MOV #-1, CURSEG 

Finished 



ENABLE INTERRUPTS 

REMEMBER IF WE HAVE EXCLUSIVE SYS USE 

ENABLE OTHER JOBS TO RUN 

PUT US IN QUEUE FOR USR 

SUSPEND JOB AND WAIT FOR USR 

WERE WE ABORTED WHILE ASLEEP? 

DO WE WANT EXCLUSIVE ACCESS TO SYSTEM? 

LOOP IF NOT 

GET EXCLUSIVE ACCESS TO THE SYSTEM 

GO TRY TO GET USR NOW 



We can get USR now. 

CORUSR, USR JOB 

USRCNT 
Make sure USR is not being called from a completion routine 



MOVE 

ENABL 

INC 



i i CLAIM USR FOR US 

ENABLE INTERRUPTS 

REMEMBER # TIMES WE CLAIMED USR 



TSTE 


CURCP 


BEQ 


3* 


MOV 


#-13, RO 


JMP 


USRERR 



ARE WE IN A COMPLETION ROUTINE NOW? 

BR IF NOT 

ABORT IF IN COMPLETION ROUTINE 



NO DIR SEG IN BUFFER NOW 



010142 012605 
010144 000207 



MOV 
RETURN 



(SP)+, R5 



010146 



. SBTTL FREUSR — Free the USR 
FREUSR is called to release our ownership of the USR data base. 
FREUSR: DISABL ; i > DISABLE INTERRUPTS 



i 

€ 



I 
i 
I 
€ 



I 
i 



I 
I 
I 



TSUSR 
FREUSR 
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— Free the USR 
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58 010154 

59 010162 

60 010164 

61 010170 

62 010172 
63 

64 
65 

66 010176 

67 010204 

68 010210 

69 010214 
70 

71 
72 

73 010216 

74 010224 



123737 
001015 
005337 
002012 
105037 



OOOOOOG OOOOOOG 



002026 ' 



OOOOOOG 



CMPB C OR USR, USR JOB 

BNE 1$ 

DEC USR C NT 

B6E 1* 

CLRB USRJOB 



i DO WE OWN USR? 

i BR IF NOT 

i IS THIS LAST UNLOCK OF USR? 

; BR IF NOT 

J SAY USR IS FREE 



Restart any jobs waiting for USR 



012700 
004737 
000207 



OOOOOOG 
OOOOOOG 



ENABL 
MOV 
CALL 
RETURN 



#S*QUSR, RO 
UREGO 



i ENABLE INTERRUPTS 

J QUEUE OF WAITING JOBS 

i RESTART WAITING JOBS 



Finished 



1*: 



000207 



ENABL 
RETURN 



; ENABLE INTERRUPTS 



TSUSR ■ 


— File 


operation EMT's 


CHKDEV - 


— See i 


f reques 


ted devi 


1 
2 








3 








4 








5 








6 








7 








e 








9 








10 








11 








12 








13 








14 


010226 


010146 




15 


010230 


010246 




16 








17 








18 








19 


010232 


013701 


ooooooe 


20 


010236 


005000 




21 


010240 


071027 


000050 


22 


010244 


012702 


177777 


23 


010250 


005701 




24 


010252 


001406 




25 


010254 


162701 


000036 


26 


010260 


010102 




27 


010262 


020227 


000007 


28 


010266 


101063 




29 


010270 


070027 


000050 


30 








31 








32 








33 








34 








35 








36 








37 


010274 


020137 


002020 ' 


38 


010300 


001403 




39 


010302 


020137 


002016' 


40 


010306 


001007 




41 


010310 


013704 


OOOOOOG 


42 


010314 


005702 




43 


010316 


002014 




44 


010320 


1 1 3702 


00000 IG 


45 


010324 


000411 




46 








47 








48 








49 


010326 


013704 


OOOOOOG 


50 


010332 


020164 


OOOOOOG 


51 


010336 


001404 




52 


010340 


162704 


000002 


53 


010344 


002372 




54 


010346 


000433 




55 








56 








57 
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. SBTTL CHKDEV 



See if requested device is legal 



i 
I 
f 



CHKDEV is called to see if access to the device specified by the 
file spec in FILSPC is legal. 

Inputs: 
FILSPC = Device file specification 

Outputs: 
RO = Unit number of device 
R4 = Index into device tables 
C-flag set on return if the device is not recognized. 



CHKDEV: MOV 
MOV 



Rl, -<SP) 
R2, -<SP) 



Get device name and split off unit number. 



I 
I 

c 

i 



6*: 



MOV 
CLR 
DIV 
MOV 
TST 
BEQ 
SUB 
MOV 
CMP 
BHI 
MUL 



FILSPC/ Rl 

RO 

#50, RO 

#-l,R2 

Rl 

6$ 

#36, Rl 

R1,R2 

R2, #7 

8* 

#50, RO 



GET DEVICE NAME (RAD50) 

SET FOR DIVIDE 

SPLIT OFF LOW-ORDER RAD50 CHARACTER 

ASSUME NO UNIT NUMBER SPECIFIED 

WAS A UNIT NUMBER SPECIFIED? 

BR IF NOT 

CONVERT RAD50 DIGIT TO BINARY VALUE 

GET BINARY VALUE OF UNIT NUMBER 

RESTRICT UNIT NUMBER TO RANGE 0-7 

BR IF INVALID UNIT NUMBER 

GET DEVICE NAME WITHOUT UNIT NUMBER 



2*: 



The radSO device name less unit number is now in Rl. 

R2 has the binary value of the unit number or -1 if no unit number 

uas specified. 

Translate "SY: " and "DK: " to physical device. 

IS DEVICE NAME "DK»? 

BR IF YES 

IS DEVICE NAME "SY"? 

BR IF NOT 

GET SY DEVICE INDEX NUMBER 

DID USER SPECIFY A UNIT NUMBER? 

BR IF YES 

GET SYSTEM DEVICE UNIT NUMBER 



Look up device name in permanent device name table. 



CMP 


R1,R50DK 


BEQ 


2* 


CMP 


R1,R50SY 


BNE 


3* 


MOV 


SYINDX, R4 


TST 


R2 


BGE 


7* 


MOVB 


SYUNIT+1, R2 


BR 


7* 



3«: MOV NUMDEV, R4 

5*: CMP R1,PNAME(R4) 

BEQ 7* 

SUB #2, R4 

BGE 5* 

BR 8* 



GET INDEX NUMBER OF LAST DEVICE 

SEARCH FOR NAME IN TABLE 

BR IF FOUND 

TRY NEXT ENTRY 

LOOP IF MORE TO CHECK 

Invalid device 



Found device name. Translate no unit number into # 0. 



f 

I 

f 

1 1 

i 

4 

( 

I 

t 

I 

I 

< 
( 
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58 010350 

59 010352 

60 010354 
61 

62 
63 
64 

65 010356 

66 010362 

67 010364 

68 010366 

69 010370 

70 010374 

71 010376 
72 

73 
74 
75 

76 010400 

77 010402 

78 010406 

79 010410 

80 010414 

81 010416 

82 010422 

83 010424 

84 010430 
85 

86 
87 

88 010432 

89 010434 
90 

91 

92 

93 010436 

94 

95 

96 

97 010440 

98 010442 

99 010444 



010200 
002001 
005000 



020437 
001006 
010002 
006302 
005762 
001420 
000415 



010002 
020437 
001405 
020437 
001006 
062702 
006302 
005762 
001402 



000241 
000401 



000261 



012602 
012601 
000207 



MOV 


R2, RO 


BGE 


1« 


CLR 


RO 



OOOOOOG 



0000000 



CMP 


R4. LDDEVX 


BNE 


11* 


MOV 


RO, R2 


ASL 


R2 


TST 


LDPDEV(R2) 


BEQ 


8* 


BR 


9* 



OOOOOOG 
OOOOOOG 
000010 
OOOOOOG 



7*: MOV R2, RO i GET UNIT NUMBER VALUE 

BR IF UNIT NUMBER WAS SPECIFIED 
SAY UNIT # = IF NONE SPECIFIED 

If the device is a logical disk <LDn), check to make sure the 
particular unit is mapped to a file 

1*: CMP R4, LDDEVX i IS THIS A LOGICAL DISK? 

BR IF NOT 
GET UNIT NUMBER 
CONVERT TO WORD TABLE INDEX 
IS UNIT MAPPED TO A FILE? 
BR IF NOT 



If the device is a communications line (CLn), check to make sure 
the specified CL unit is assigned to some line. 

11*: MOV RO, R2 i Get unit number 

Is this a CL unit? 

Br if yes 

Is this a CI unit? 

Br if not 

Bias unit number by 8 for CI 
12*: ASL R2 ; Convert to word table index 

Is this unit assigned to some line? 

Br if not 



} SIGNAL GOOD RETURN 



MOV 


RO, R2 


CMP 


R4, CLDEVX 


BEQ 


12* 


CMP 


R4, CIDEVX 


BNE 


9* 


ADD 


#8. , R2 


ASL 


R2 


TST 


CL*LIX<R2) 


BEQ 


8* 



i This device access 


is 


9*: CLC 




BR 10* 

• 




i Invalid device 




> 

8*: SEC 

■ 




> 

> Finished — Return 




10*: MOV (SP)+, 


R2 


MOV <SP)+, 


Rl 


RETURN 





i SIGNAL INVALID DEVICE NAME 



I 
I 
I 
< 
1 
i 
i 
I 

i 



i 
t 



TSUSR 
CHKALC 



i 
( 

i 
f 
t 

c 
t 



i 

I < 
I 

c 
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. SBTTL CHKALC — Check for device allocation 



3 
4 
5 
6y 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



CHKALC is called to determine if a device being accessed is available 

to the current job due to allocation considerations. 

If an allocation failure is detected, a fatal error return is taken. 

Inputs: 
FILDVU = Device index # and unit # of device to be checked. 



010446 010046 
010450 010246 



010452 105737 002014' 
010456 001446 



010460 012702 0000006 

010464 013700 002014' 

010470 020062 OOOOOOG 

010474 001421 

010476 062702 OOOOOOG 

010502 020227 OOOOOOG 

010506 103770 



CHKALC: MOV 
MOV 



RO, -<SP) 
R2, -(SP) 



Don't do allocation test for TT 



TSTB 
BEQ 



FILDVU 
9* 



i Device # O ==> TT 

; Br if this device is TT 



See if this device is in the allocation table. 



1*: 



MOV #ALCTBL, R2 

MOV FILDVU, RO 

CMP RO, AD*DVU<R2) 

BEQ 2« 

ADD #AD$»SZ, R2 

CMP R2, #ALCEND 

BLO 1* 



i Point to start of allocation table 

i Get device/unit id 

i Is this entry for this device? 

i Br if yes 

j Point to next table entry 

i Have ue checked all entries? 

j Br if not 



010510 113700 002014' 

010514 032760 OOOOOOG OOOOOOG 

010522 001424 

010524 004737 015426' 

010530 012700 177751 

010534 000137 015356' 



This device is not in the allocation table. 

See if it must be allocated before it can be accessed. 

MOVE FILDVU, RO i Get the device index number 

BIT #DX*RAL, DVFLAG<RO); Is allocation required before access? 

BEQ 9* iBr if not 

CALL ERRNAM i Set file spec for Kmon error message 

MOV #-27, RO ;Set error code 

JMP USRCLS i Error return from USR 

This device is in the allocation table. 

See if it is allocated to our job or to another job. 



010540 116202 OOOOOOG 

010544 113700 OOOOOOG 

010550 126260 OOOOOOG OOOOOOG 

010556 001406 

010560 004737 015426' 

010564 012700 177752 

010570 000137 015356' 



010574 012602 
010576 012600 
010600 000207 



2*: 



MOVB 

MOVB 

CMPB 

BEQ 

CALL 

MOV 

JMP 



AD*J0B(R2), R2 i Get # of job that owns the device 
CORUSR, RO j Get current job index number 
LNPRIM<R2), LNPRIM<RO) ; Do uie own the device? 



9* 

ERRNAM 
#-26, RO 
USRCLS 



i Br if yes 

J Set file spec for Kmon error message 

i Set error code 

i Error return 



Device access is ok 



9*: 



MOV 
MOV 
RETURN 



<SP)+, R2 
(SP)+, RO 



i 

t 
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I 
i 
i 
i 

€ 



i 
4 



f 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 010602 

17 010604 

18 010606 

19 010610 

20 010612 

21 010614 

22 010616 
23 

24 
25 

26 010622 

27 010626 

28 010630 

29 010632 

30 010634 

31 010642 

32 010644 
33 

34 
35 

36 010652 

37 010660 
38 

39 
40 

41 010662 

42 010670 

43 010672 
44 

45 
46 

47 010676 

48 010704 

49 010706 

50 010714 

51 010716 

52 010722 

53 010724 

54 010730 

55 010732 

56 010736 

57 010742 



. SBTTL CHKACC — Check legality of file access 

CHKACC is called to see if a user is authorized to access a 
certain device and file. 

Inputs: 
RO = Unit number of device being accessed. 
R4 = Device index number of device being accessed. 
FILSPC = Device-file specification of file being accessed. 
R3 = Address of channel block associated with operation. 

Outputs: 
Abort if access denied. 
CS*RON set in channel CSW if read-only access authorized. 



010046 
010146 
010246 
010346 
010446 
010546 
113701 



020437 
001011 
010002 
006302 
032762 
001403 
052763 



032737 
001004 



032761 
001402 
000137 



032737 
001026 
032761 
001022 
120437 
001017 
120037 
001014 
013702 
020237 
001531 



OOOOOOG 



OOOOOOG 



CHKACC: 


MOV 


RO, -<SP) 




MOV 


Rl, -<SP) 




MOV 


R2, -<SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




MOV 


R5, -(SP) 




MOVB 


C0RUSR,R1 


i See 


if ue 


are accessin 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



CMP 
BNE 
MOV 
ASL 
BIT 
BE(3 
BIS 



i GET JOB INDEX NUMBER 



R4, LDDEVX ; IS THIS A LOGICAL DISK? 

13* i BR IF NOT 

RO, R2 i GET UNIT NUMBER 

R2 i CONVERT TO WORD TABLE INDEX 

#LD*RON, LDFLAG(R2) i WAS /NOWRITE SPECIFIED FOR DISK? 

13* i BR IF NOT 

#CS*RON, C. CSW(R3)iSAY READ-ONLY ACCESS ALLOWED 



Allow access to all devices if user has BYPASS privilege 



OOOOOOG OOOOOOG 13*: 



BIT #PO*BYP,PRIVCO i Does user have BYPASS privilege? 
BNE 19* ; Br if yes 



See if TSXUCL is trying to access its command file 



OOOOOOG OOOOOOG 
011250' 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
00000 IG 

000006G 

002022 ' 



19*: 



BIT #*UCLRN, LSW7(R1)) IS TSXUCL RUNNING? 

BEQ 16* ; Br if not 

JMP 9* ;Alloiu full file access 



See if a non-privileged user is trying to access a SYS or TSX file on SY: 



16*: 



BIT 


#PO*SYS, PRIVCO 


BNE 


1* 


BIT 


#*NOIN. LSW3(R1) 


BNE 


1* 


CMPB 


R4, SYINDX 


BNE 


1* 


CMPB 


RO, SYUNIT+1 


BNE 


1* 


MOV 


FILSPC+6, R2 


CMP 


R2, R50SYS 


BEQ 


8* 



IS THIS A PRIVILEGED USER? 

BR IF PRIVILEGED USER 

ARE WE RUNNING IN START-UP COMMAND FILE? 

BR IF YES — GIVE FULL ACCESS DURING STARTUP 

Is device = SY? 

Br if not SY 

Is unit = SY? 

Br if not 

GET FILE EXTENSION 

IS EXTENSION "SYS"? 

BR IF YES — DISALLOW ACCESS 



i 
f 

I 

I 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



— File operation EMT's MACRO V05. 05 

— Check legality of file access 



010744 
010750 
010752 
010756 
010760 



010762 
010766 
010770 
010776 
011000 
011006 
011010 
011016 
011020 



011026 
011032 



011034 
011040 
011042 
011046 



011050 
011054 
011060 
011062 
011066 
011070 
011076 
011100 
011102 
011104 
011106 
011112 
011116 

011120 
011122 



011124 
011130 
011134 
011136 
011142 



020237 
001004 
105737 
001131 
000522 



005737 
001017 
032764 
001413 
032737 
001007 
032737 
001503 
052763 



005737 
001506 



110437 
001503 
110037 



012705 
020537 
103021 
004737 
103407 
032765 
001002 
005002 
000410 
005202 
062705 
020537 
103761 

005702 
001423 



013705 
020527 
103013 
004737 
103405 



002024 ' 
OOOOOOG 



Wednesday 


18-Jan-89 


CMP 


R2, R50TSX 


BNE 


1* 


TSTB 


KMONCE 


BNE 


7* 


BR 


8* 
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000002G 
0000000 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



1*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



IS EXTENSION "TSX"? 

BR IF NOT . TSX FILE 

IS ONCE-ONLY CODE LOOKING FOR HANDLERS? 

IF YES — ALLOW READ-ONLY ACCESS 

BR IF NOT — DISALLOW ACCESS 

See if this is a non-file-structured lookup to a file-structured device 

TST FILSPC+2 i Non-file-structured lookup? 

BNE 15* J Br if not 

BIT #DS*DIR, DVSTAT<R4) ;Is this a directory structured device? 

BEQ 15* ;Br if not 

BIT #PO*NFW, PRIVCO iMay user do NFS open and then u/rite? 

BNE 15* i Br if he has write access 

BIT #PO*NFR,PRIVCO iMay user do NFS open and read? 

BEQ 8* i Br if not — No access allowed 

BIS #CS*RON> C. CSW(R3) i Force read-only access 

See if ACCESS command was used to restrict access to any devices or file* 



15*: 



TST 
BEQ 



RESDEV 
9* 



i ANY RESTRICTED DEVICES AND FILES? 
;BR IF NOT 



There are restricted devices and files. 
See if access is authorized. 



002046 ' 
002047 ' 



MOVB 


R4, CKADEV 


BEQ 


9* 


MOVB 


RO, CKAUNT 


CLR 


R2 



OOOOOOG 
OOOOOOG 

011266' 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



iSAVE DEVICE INDEX NUMBER 

i You aluiays get full access to TT: 

i SAVE DEVICE UNIT # 

i Init read-only flag 

Check entries on the ACCESS list 

i Point to start of ACCESS list 
i Are there any ACCESS entries? 
i If not, access OK, go check NOACCESSes 
i See if entry is on ACCESS list 
i If not, go to next entry 
#OT*RON, 0F*FLG(R5)i Match found, was it read-only? 

; If read only, go set read-only flag 
i Hey ! this gets full access 
; Go check NOACCESSes 
i Remember uie have limited access 
iPoint to next authorized file spec 
iHit end of ACCESS list? 
i And keep checking to end 
i There are entries on the ACCESS list, but we never got full access 

TST R2 iDid uie get at least partial access? 

BEQ 5* ; If not, have to deny access 

We have at least partial access to this file, check NOACCESS list 





MOV 


#OKFILE, R5 




CMP 


R5, OKFAND 




BHIS 


2* 


6*: 


CALL 


ACCMCH 




BCS 


4* 




BIT 


#OT*RON, OF 




BNE 


41* 




CLR 


R2 




BR 


2* 


41*: 


INC 


R2 


4*: 


ADD 


#OF**SZ, R5 




CMP 


R 5, OKFAND 




BLO 


6* 



OOOOOOG 
OOOOOOG 

011266' 



2*: 
3*: 



MOV 


DKFNND, R5 


CMP 


R5, #OKFEND 


BHIS 


38* 


CALL 


ACCMCH 


BCS 


35* 



i Point to start of NOACCESS list 

; Are there any more entries on the list? 

i Br if not 

» See if this entry is forbidden 

; If no match, step up to next 
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136 
137 
138 
139 
140 
141 
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011144 
011152 
011154 
011156 
011162 

011164 
011166 
011170 



011172 
011176 
011204 
011206 
011214 
011216 
011224 



011226 
011232 
011236 



011250 
011252 
011254 
011256 
011260 
011262 
011264 



032765 
001407 
005202 
062705 
000762 

005702 
001430 
000424 



ooooooe ooooooG 



OOOOOOG 



BIT #OT*RON, DF*FLe(R5) i Match, is write access forbidden? 

BEQ 5* iNo, all access is denied 

INC R2 J Just disallouj write access for noui 

35*: ADD #OF**SZi R5 ; Point to next entry 

BR 3* j And keep checking 

i We got here without being totally denied access 

38*: TST R2 > Were we denied write access? 

BEQ 9* i No access restrictions 

BR 7* » Go flag as read-only 

Access restrictions forbid any access to this file. 
However, allow implicit access to some devices and files. 



Allow DUP to access SY: on a read-only basis 



113701 
032761 
001410 
123737 
001004 
123737 
001406 



004737 
012700 
000137 



OOOOOOG 

OOOOOOG 

002046 ' 
002047 ' 



5*: 



OOOOOOG 
OOOOOOG 
00000 IG 



MOVE 


CORUSRiRl 


BIT 


#*DUPRN, LSW6<R1) 


BEQ 


8* 


CMPB 


CKADEV» SYINDX 


BNE 


8* 


CMPB 


CKAUNT, SYUNIT+1 


BEQ 


7* 



GET JOB INDEX NUMBER 

IS DUP RUNNING? 

BR IF NOT 

IS DEVICE = SY? 

BR IF NOT 

IS UNIT = SY? 

BR IF SY — ALLOW READ ONLY ACCESS 



User is not allowed to access this device or file. 



015426' 

177764 

015356' 



8*: 



CALL 

MOV 

JMP 



ERRNAM 
#-14, RO 
USRCLS 



SET FILE SPEC FOR TSKMON ERROR MESSAGE 

SET ERROR CODE 

ABORT 



/ User is allowed read-only access to this device or file, 
i Set CS*RON flag in CSW. 

011242 052763 OOOOOOG OOOOOOG 7*: BIS #CS*RON, C. CSW<R3)i SET READ-ONLY ACCESS FLAG IN CSW 

User is allowed full access to file. 



012605 
012604 
012603 
012602 
012601 
012600 
000207 



9*: 



MOV 


<SP)+, 


R5 


MOV 


(SP)+, 


R4 


MOV 


<SP)+, 


R3 


MOV 


<SP)+, 


R2 


MOV 


(SP)+, 


Rl 


MOV 


<SP)+, 


RO 


RETURN 
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3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 

15 01 

16 01 

17 01 

18 01 

19 01 
20 

21 
22 

23 01 

24 01 

25 01 

26 01 

27 01 

28 01 

29 01 

30 01 
31 

32 
33 
34 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 
43 

44 01 

45 01 
46 

47 01 
48 

49 01 

50 01 

51 01 



1266 
1266 
1270 
1272 
1276 



1300 
1304 
1306 
1312 
1314 
1320 
1322 
1326 



1330 
1334 
1340 
1344 
1346 
1350 
1356 
1360 

1362 
1364 



1370 
1372 
1374 



116500 
100411 
123700 
001025 
116500 
100403 
123700 
001017 



062705 
012701 
012700 
022125 
001404 
026527 
001003 
077007 

000241 
000401 



1366 000261 



012605 
012601 
000207 



. SBTTL ACCMCH — Compare file spec with CNO^ACCESS entry 

Check to see if dev/file specification matches a CN03ACCESS table entry 

Inputs: 

R5 points to CN03ACCESS entry to be tested 

CKADEV contains device index in question 

CKAUNT contains device unit # in question 

FILSPC contains -^R/FILNAMEXT/ in question 

Outputs: 

C-clear entry matches 

C-set entry does not match 



ACCMCH: 



010146 

010546 

005765 OOOOOOG 

001433 



MOV R1,-(SP) 

MOV R5, -(SP) 

TST 0F*FIL<R5) 

BEQ 7* 



j Is this entry in use? 

; If not* certainly cannot match 



Check for match on device index and unit number 



OOOOOOG 



002046 



OOOOOOG 



002047 ' 



MOVB 


0F*DEV<R5),R0 


BMI 


2* 


CMPB 


CKADEV> RO 


BNE 


7* 


MOVB 


0F*UNT(R5),R0 


BMI 


2* 


CMPB 


CKAUNT, RO 


BNE 


7* 



Get CN03ACCESS device index 
Wildcard always matches 
Does the device index match? 
Br to no match if not 
Get CN03ACCESS unit number 
Wildcard always matches 
Does the unit # match? 
Br to no match if not 



Device and unit are an acceptable match 
Check file specification 



OOOOOOG 
000002G 
000003 



177776 OOOOOOG 



2*; 



5*: 



3*: 



7*: 
9*: 



ADD 
MOV 
MOV 
CMP 
BEQ 
CMP 
BNE 
SOB 

CLC 
BR 

SEC 

MOV 
MOV 
RETURN 



#OF*FIL, R5 

#FILSPC+2, Rl 

#3iR0 

<R1)+, (R5> + 

3« 

-2(R5),#WLDNAM 

7* 

RO, 5* 



9* 



Point to CN03ACCESS file spec 

Point to file spec in question 

Get # words to compare <FIL NAM EXT) 

Compare FIL NAM EXT 

Br if this one matches 

Doesn't match, was CN03ACCESS wild? 

If not, no match 

This part matches, check rest? 

Entry matches, signal success 



Entry does not match, signal no match 



(SP)+, R5 
(SP)+, Rl 
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TSUSR — File 
FNDFIL -~ Find 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 011376 

16 011400 
17 

18 

19 

20 01 

21 

22 

23 

24 011406 

25 011412 

26 011416 
27 

28 011420 

29 011422 

30 011426 

31 011432 

32 011436 

33 011440 

34 011442 
35 

36 

37 

38 01 

39 

40 

41 

42 011450 

43 011452 

44 011454 

45 011456 
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file in directory 



010246 
010346 



1402 004737 013656 



OOOOOOG 
013370' 



OOOOOOG 
0000020 
000003 



012700 
004737 
103415 

010103 
062703 
012702 
012700 
022223 
001362 
077003 



1444 004737 013622 



000241 
012603 
012602 
000207 
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. SBTTL FNDFIL — Find file in directory 

FNDFIL is called to locate the directory entry for a permanent file. 

Inputs: 
FILSPC = File spec to be searched for. 

Outputs: 

RO = Starting block number of file. 

Rl = Address of directory entry (located in USRBUF). 

USRBUF = Directory segment containing entry. 

CURSEO = Number of directory segment. 
C-flag set if file not found. 



FNDFIL: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



Read in directory segment number 1 and set up info about directory. 

CALL RDSEei j READ IN FIRST DIRECTORY SEGMENT 

Search for permanent file entry that matches our name. 



2* 



MOV #FS*PRM, RO 

CALL GETDIR 

BCS 3* 

i Compare file names. 

MOV R1,R3 

ADD #FD*NAM, R3 

MOV #FILSPC+2. R2 

MOV #3, RO 

1$: CMP (R2)+, <R3> + 

BNE 2« 

SOB RO, 1* 



i LOCATE NEXT PERM FILE ENTRY 

;BR IF HIT END OF DIRECTORY 

GET ADDRESS OF DIRECTORY ENTRY 

POINT TO FILE NAME IN DIR ENTRY 

POINT TO NAME WE WANT TO FIND 

COMPARE 3 WORDS 

DO NAMES MATCH? 

BR IF NOT 

CHECK ALL OF NAME 



Found the file entry — Calculate starting block number. 

CALL SBCALC ; CALCULATE STARTING BLOCK # FOR ENTRY 



i SIGNAL GOOD RETURN 



i 

i Finished 




4*: CLC 




3*: MOV 


(SP)+>R3 


MOV 


<SP)+, R2 


RETURN 
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1 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

17 01 

18 01 
19 
20 
21 
22 01 



operation EMT's MACRO V05. 05 Wednesday 18-Jan-S9 12:12 Page 37 
a free slot for a new file 



1460 
1462 



01 



1464 
1470 



010346 
010446 



005037 002030 
005037 002036 



23 

24 

25 

26 

27 011474 004737 013656' 

28 

29 

30 

31 011500 004737 013016' 

32 

33 

34 

35 011504 

36 011510 

37 011514 

38 011520 

39 011522 

40 011526 

41 011530 

42 011534 
43 
44 
45 
46 

47 011536 

48 011542 

49 011544 

50 011546 

51 011552 

52 011556 

53 011562 

54 011564 

55 011566 
56 
57 



063701 002006' 

016100 OOOOOOG 

032700 OOOOOOC 

001771 

032700 OOOOOOG 

001024 

032700 OOOOOOG 

001106 



032700 OOOOOOG 

001760 

010103 

062703 OOOOOOG 

012704 000002G 

012700 000003 

022324 

001347 

077003 



. SBTTL FNDFRE — Find a free slot for a new file 

FNDFRE is called to locate a free file entry for a new file. 

Inputs: 
R2 = Desired size <-l==>large5ti 0==>Default algorithm) 
FILSPC = Device-file spec for file being entered. 

Outputs: 
RO = Error code if C-flag set on return. 

<l==>No free space of adequate size; 3==>Protec ted file conflict). 
Rl = Address of free file directory entry. 
R2 = Actual # of blocks to be used for file. 
USRBUF = Directory segment that has free slot entry. 
C-flag set if insufficient disk space or protected file conflict. 



FNDFRE: MOV 
MOV 



R3, -<SP) 
R4, -<SP> 



Initialize tables that hold info about 2 largest free slots. 



CLR 
CLR 



LISIZ 
L2SIZ 



;SIZE OF LARGEST FREE SLOT 
iSIZE OF 2ND LARGEST FREE SLOT 



Read in Ist directory segment and set up info about directory parameters 

CALL RDSEGl i READ IN 1ST DIRECTORY SEGMENT 

Consolidate entries in directory segment. 

7*: CALL CONSOL J CONSOLIDATE DIRECTORY SEGMENT 

Find next directory entry for a permanent file or a free slot. 
4*: 



ADD 
MOV 
BIT 
BEQ 
BIT 
BNE 
BIT 
BNE 



DIRSIZ,R1 i POINT TO NEXT DIRECTORY ENTRY 
FD*STA<R1),R0 i PICK UP STATUS WORD FROM DIRECTORY ENTRY 
#FS*PRM+FS*EMP+FS*EOS, ROi PERM FILE, EMPTY SLOT OR END OF SEGMENT? 



4* 

#FS*EMP, RO 
13* 

#FS*EOS> RO 
1* 



BR IF NONE OF ABOVE 

IS THIS AN EMPTY SPACE ENTRY? 

BR IF YES 

IS THIS THE END OF SEGMENT MARKER ENTRY? 

BR IF YES 



Found permanent file entry. See if this is a protected file entry 
with the same name as the file being entered. 



BIT #FS*PRO, RO 

BEQ 4* 

MOV R1,R3 

ADD #FD*NAM. R3 

MOV #FILSPC+2, R4 

MOV #3, RO 
14*: CMP (R3)+, (R4) + 

BNE 4* 

SOB RO, 14* 
i Error: Protected file with same name 
> Return error code 3. 



IS THIS FILE PROTECTED? 

BR IF NOT 

POINT TO NAME IN DIR ENTRY 



POINT TO NAME OF FILE BEING ENTERED 
GET # WORDS TO COMPARE 
COMPARE FILE NAMES 
BR IF DIFFERENT 
COMPARE ALL OF NAMES 
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59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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011570 
011574 



011600 
011604 
011606 
011610 
011614 

011616 
011620 
011622 
011626 
011630 
011632 
011634 
011640 
011644 
011652 



011654 
011660 
011662 
011670 
011676 
011704 
011710 
011714 
011722 
011724 
011730 
011732 
011736 
011742 
011750 



011752 
011760 
011762 
011770 
011772 
011776 
012000 



012700 
000137 



016100 
005702 
001422 
020227 
001417 

020002 
103731 
013703 
001402 
020003 
103324 
010037 
010137 
013737 
000714 



020037 
101421 
013737 
013737 
013737 
010037 
010137 
013737 
000670 
020037 
101665 
010037 
010137 
013737 
000655 



023737 
001404 
023737 
001005 
105737 
001402 
004737 



000003 
012174' 



OOOOOOG 



177777 



MOV 
JMP 



#3, RO 
24$ 



iSET ERROR CODE 

i RETURN ERROR STATUS 



We found a free slot. Check its size. 



002030 



002030 ' 
002032 ' 
002002' 002034 



002030 ' 



002030 ' 
002034 ' 
002032 ' 
002030 ' 
002032 ' 
002002 ' 

002036 ' 



002036 ' 
002042 ' 
002040 ' 



002034 ' 



002036 ' 
002040 ' 
002002' 002042' 



13*: MOV 

TST 

BEQ 

CMP 

BEQ 
; See if free 

CMP 

BLO 

MOV 

BEQ 

CMP 

BHIS 
15*: MOV 

MOV 

MOV 

BR 
; We have a re 
; Remember two 
2* : CMP 

BLOS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BR 
5*: CMP 

BLOS 

MOV 

MOV 

MOV 

BR 



FD*LEN<R1),R0 

R2 

2* 

R2, #-i 

2* 
slot is large e 

RO, R2 

4* 

L1SIZ,R3 

15* 

RO, R3 

4* 

RO, LISIZ 

R1,L10FF 

CURSEO, LISEO 

4* 
quested size of 

largest free s 

RO, LISIZ 

5* 

L1SIZ,L2SIZ 

LISEG, L2SEG 

LIOFF, L20FF 

RO, LISIZ 

R1,L10FF 

CURSEG, LISEG 

4* 

RO. L2SIZ 

4* 

RO, L2SIZ 

R1,L20FF 

CURSEG, L2SEG 

4* 



;GET SIZE OF FREE SLOT 

iWHAT KIND OF ALLOCATION IS BEING REQUESTED? 

iBR IF HE WANTS DEFAULT ALGORITHM 

iDOES HE WANT LARGEST FREE SLOT? 

; BR IF YES 
nough to satisfy specific request. 
IS FREE SLOT LARGE ENOUGH? 
BR IF NOT 

GET SIZE OF BEST FIT SO FAR 
BR IF THIS IS 1ST SLOT THAT WILL FIT 
IS NEW SLOT A BETTER FIT THAN LAST ONE? 
BR IF NOT 

REMEMBER SIZE OF BEST FIT FOUND SO FAR 
OFFSET OF DIR ENTRY WITHIN SEGMENT 
# OF DIR SEGMENT WITH ENTRY 

or -1. 
lots. 

i IS NEW SLOT LARGER THAN LARGEST WE'VE SEEN? 

;BR IF NOT 

;MOVE INFO INTO 2ND LARGEST ENTRY 



SAVE SIZE OF NEW LARGEST ENTRY 

SAVE ADDRESS OF DIR ENTRY 

SAVE # OF SEGMENT WITH ENTRY 

KEEP LOOKING FOR LARGER FREE SLOTS 

IS NEW SLOT LARGER THAN 2ND LARGEST SO FAR? 

BR IF NOT 

SAVE NEW 2ND LARGEST SIZE 

SAVE ADDRESS OF DIR ENTRY 

SAVE DIR SEGMENT # 

KEEP LOOKING 



There are no more free slots in the current directory segment. 
If after scanning all the segments to find the best fit entry, the 
current segment ends up having the best fit (LISEG or L2SEG), then 
uie (Dill have to re-read the segment/ but since it may have been 
consolidated in memory, lue have to write it out now so that the 
offset to the desired entry (LIOFF or L20FF) will be correct. 



002034' 002002' 1*: 
002042' 002002' 
002050' 30*: 

014110' 



CMP 


LISEG. CURSEG 


BEG 


30* 


CMP 


L2SEG, CURSEG 


BNE 


35* 


TSTB 


CNSLXD 


BEG 


35* 


CALL 


WRTSEG 



IS THIS A POTENTIAL TARGET SEGMENT? 

IF YES, MAY WANT TO REWRITE 

IS THIS AN ALTERNATE TARGET SEGMENT? 

IF WON'T USE THIS SEGMENT, SKIP REWRITE 

DID CONSOL REORGANIZE THE SEGMENT? 

IF NOT, SKIP REWRITE 

REWRITE SEGMENT 



012004 013700 OOOOOOC 



See if there are more segments to check. 
35*; MOV USRBUF+DH*NXT, ROi GET # OF NEXT SEGMENT 
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TSUSR - 


-- File 
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FNDFRE - 


— Find 


a free s 


lot for 


115 


012010 


001403 




116 


012012 


004737 


013772' 


117 


012016 


000630 




118 








119 








120 








121 








122 


012020 


005737 


002030 ' 


123 


012024 


001461 




124 


012026 


005702 




125 


012030 


001412 




126 








127 


012032 


020227 


177777 


128 


012036 


001002 




129 


012040 


013702 


002030 ' 


130 


012044 


013700 


002034 ' 


131 


012050 


013701 


002032 ' 


132 


012054 


000435 




133 








134 








135 


012056 


013702 


002030 ' 


136 


012062 


020227 


000001 


137 


012066 


001414 




138 


012070 


000241 




139 


012072 


006002 




140 


012074 


020237 


002036 ' 


141 


012100 


101007 




142 


012102 


013700 


002042 ' 


143 


012106 


013701 


002040 ' 


144 


012112 


013702 


002036 ' 


145 


012116 


000404 




146 


012120 


013700 


002034 ' 


147 


012124 


013701 


002032 ' 


148 








149 








150 








151 








152 


012130 


005737 


OOOOOOG 


153 


012134 


001405 




154 


012136 


020237 


OOOOOOG 


155 


012142 


101402 




156 


012144 


013702 


ooooooe 


157 








158 








159 








160 








161 


012150 


020037 


002002 ' 


162 


012154 


001411 




163 


012156 


010146 




164 


012160 


004737 


013772' 


165 


012164 


012601 




166 


012166 


000404 




167 








168 








169 








170 


012170 


012700 


000001 


171 


012174 


000261 
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BEQ 6* 
CALL RDSEO 
BR 7* 



i BR IF THERE ARE NO MORE SEGMENTS 
;READ IN NEXT SEGMENT 
; SEARCH THIS SEGMENT 



We have reached the end of the last active directory segment. 
See if me were able to satisfy request. 

iDID WE FIND ANY ENTRY THAT WOULD DO? 

;BR IF NOT 

iWHAT KIND OF REQUEST WAS IT? 

; DEFAULT ALLOCATION 
e slot or he specified a specific size. 

iDOES HE WANT LARGEST OR SPECIFIC SIZE? 

; BR IF HE SPECIFIED EXACT AMT HE WANTS 

J RETURN SIZE OF LARGEST FREE SLOT 

i GET SEGMENT # WITH ENTRY 

iGET ADDRESS OF ENTRY 

;G0 REREAD SEGMENT WITH EMPTY ENTRY 
ocation. 
largest slot or 2nd largest slot) ) 

; GET SIZE OF LARGEST SLOT 

; IS LARGEST SLOT 1 BLOCK LONG? 

; IF SO THEN USE ALL OF IT 

; DIVIDE BY 2 

COMPARE TO 2ND LARGEST SLOT 

USE 1./2 OF LARGEST 

GET # OF SEGMENT WITH 2ND LARGEST FREE BLOCK 

GET OFFSET TO ENTRY WITHIN SEGMENT 

GET SIZE OF ENTRY 

;GET # OF SEGMENT WITH LARGEST FREE BLOCK 
i GET OFFSET TO ENTRY WITHIN SEGMENT 

Constrain the largest file size returned in response to a O-size request 
to a sysgen supplied parameter (MAXFIL). 

12*: TST VMXFIL iDid user specif iy a size to constrain alloc? 

i Br if not 

i IS FREE SLOT LARGER THAN MAXFIL PARAMETER? 
iBR IF NOT 
; ONLY USE THIS MUCH SPACE 

Reread the segment that contains the empty entry we are going to 
U5e» unless that segment is the current segment. 

23* : CMP RO, CURSEG ) IS SEG WE WANT THE CURRENT SEGMENT? 

BR IF YES 

SAVE ADDRESS OF DIRECTORY ENTRY 
REREAD THE SEGMENT WITH THE EMPTY ENTRY 
RETRIEVE ADDRESS OF DIRECTORY ENTRY 
RETURN SUCCESSFULLY 

We could not satisfy the request. 

#1, RO 



6$: 


TST 


LISIZ 




BEQ 


9* 




TST 


R2 




BEQ 


8* 


i User 


wants 


largest fre 




CMP 


R2, #-1 




BNE 


10* 




MOV 


LISIZ, R2 


10*: 


MOV 


LISEG, RO 




MOV 


LIOFF, Rl 




BR 


23* 


; User 


wants 


default all 


i ( i. e 


* Larc 


er of (1/2 


8*: 


MOV 


LISIZ, R2 




CMP 


R2, #1 




BEQ 


11* 




CLC 






ROR 


R2 




CMP 


R2, L2SIZ 




BHI 


11* 




MOV 


L2SEG, RO 




MOV 


L20FF, Rl 




MOV 


L2SIZ,R2 




BR 


12* 


11*: 


MOV 


LISEG, RO 




MOV 


LIOFF, Rl 



TST 


VMXFIL 


BEQ 


23* 


CMP 


R2, VMXFIL 


BLOS 


23* 


MOV 


VMXFIL, R2 



CMP 


RO, CURSEG 


BEQ 


21* 


MOV 


R1,-<SP) 


CALL 


RDSEG 


MOV 


(SP)+,R1 


BR 


21* 



c 

4 

I 

i 



I 
€ 
C 
I 
( 
t 
I 

i 
t 



9*: 
24*: 



MOV 

SEC 



; RETURN ERROR CODE 1 

i SIGNAL ERROR ON RETURN 






1^ 



i 
i 

i 

4 
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i 
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BR 


22* 




i 

; Successful 


return 




i 

21*: 


CLC 






22*: 


MOV 


(SP)+, 


R4 




MOV 


(SP)+, 


R3 




RETURN 







172 012176 000401 

173 

174 
[ - 175 

I * 176 012200 000241 21*: CLC ; SIGNAL GOOD RETURN ^ 

177 012202 012604 
I . 178 012204 012603 

179 012206 000207 



c 
I 

i 

i 

( 

( 



( 



I 
I 



{ 
I 
( 

t 
I 

1 
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ADDENT — Add a tentative file entry to directory 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 012210 

17 012212 
18 

19 
20 
21 

22 012214 

23 012216 
012220 
012224 
012226 
012230 

28 012234 

29 012236 

30 012240 

31 012242 

32 012246 
33 

34 
35 
36 

37 012250 

38 012254 
39 

40 
41 
42 

43 012256 

44 012262 

45 012266 

46 012270 

47 012272 

48 012300 

49 012306 

50 012314 

51 012320 

52 012322 

53 012326 

54 012332 

55 012334 

56 012336 
57 



24 
25 
26 
27 



010246 
010346 



010146 
005000 
004737 
010103 
012601 
013700 
060003 
060003 
060003 
020327 
103403 



004737 
103461 



016100 
010261 
160200 
010002 
012761 
113761 
113761 
005061 
010103 
062703 
012700 
012023 
012023 
012023 



. SBTTL ADDENT — Add a tentative file entry to directory 



ADDENT is called to add a tentative file entry to the current 
directory segment. This may cause the directory segment to be 
split if it overflows. 

Inputs: 
Rl = Address of empty-file directory entry to be converted to tentative file. 
R2 = # blocks to be allocated to tentative file. 
FILSPC = File spec for file being created. 

Outputs: 
Rl = Address of tentative file directory entry. 
C-flag set if directory overflows. 



ADDENT: 



MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



See if there is room in the current directory segment for three neuj entries 
<free-0. tentative, free-remainder) 



i SAVE ADDRESS OF ENTRY WE ARE WORKING ON 
i FIND END OF SEGMENT ENTRY 



013424 



002006 ' 



002002 



GET ADDRESS OF END OF SEGMENT ENTRY 
GET BACK ADDRESS OF EMPTY FILE ENTRY 
GET SIZE OF A DIRECTORY ENTRY 
ADD SPACE NEEDED FOR 3 ENTRIES 



MOV R 1 , - < SP ) 

CLR RO 

CALL NXTDIR 

MOV R1,R3 

MOV (SP)+, Rl 

MOV DIRSIZ/RO 

ADD R0> R3 

ADD RO. R3 

ADD RO. R3 

CMP R3. #USRBUF+1024. ; IS THERE ROOM IN THIS SEGMENT? 

BLO 1* iBR IF THERE IS ROOM 

Directory segment is full. 
Attempt to split it. 



012510' 



CALL 
BCS 



SPLIT 
9* 



i SPLIT THE SEGMENT 

;BR IF DIRECTORY OVERFLOW 



There is room in the current directory segment for the new entries. 
Convert the empty file entry to a tentative file entry. 



OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 
000002G 



1*: 



MOV 

MOV 

SUB 

MOV 

MOV 

MOVB 

MOVB 

CLR 

MOV 

ADD 

MOV 

MOV 

MOV 

MOV 



GET SIZE OF EMPTY FILE ENTRY 

PUT IN ALLOCATED SIZE OF TENTATIVE FILE 

CALC # BLOCKS LEFT OVER IN EMPTY AREA 



FD«LEN<R1).R0 

R2. FD«LEN<R1) 

R2. RO 

RO. R2 

#FS*TEN. FD«STA(R1); MARK ENTRY AS TENTATIVE 

C0RUSR,FD*J0B(R1>;PUT IN JOB NUMBER 

CHNNUM, FD«CHN(Rl)iPUT IN CHANNEL NUMBER 



FD*DAT(R1) 
R1.R3 

#FD*NAM. R3 
#FILSPC+2. RO 
(R0)+, (R3)+ 
(R0)+, (R3)+ 
(R0)+, (R3)+ 



SAY NO CREATION DATE YET — SET IN CLOSE 

SAVE ADDRESS OF TENTATIVE ENTRY 

POINT TO FIELD WHERE NAME GOES 

POINT TO FILE SPEC WE ARE CREATING FOR 

MOVE IN FILE NAME 

; AND EXTENSTION 



I 
f 



c 
f 

f 
i 

c 

« 

I 
« 

t 
I 
I 
( 



I 
f 
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tentative file entry to 


58 










59 










60 










61 


012340 


063701 


002006 ' 




62 


012344 


004737 


012426' 




63 


012350 


010261 


OOOOOOG 




64 










65 










66 










67 










68 










69 










70 


012354 


163701 


002006 ' 




71 


012360 


163701 


002006 ' 




72 


012364 


020127 


OOOOOOC 




73 


012370 


103410 






74 


012372 


032761 


OOOOOOG 


OOOOOOG 


75 


012400 


001404 






76 


012402 


063701 


002006 ' 




77 


012406 


004737 


012426' 




78 


012412 


063701 


002006 ' 




79 










SO 










81 










82 


012416 


000241 






83 


012420 


012603 






84 


012422 


012602 






85 


012424 


000207 
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Add 
any 



an empty file entry 
left over blocks. 



following the tentative file entry to hold 



ADD DIRSIZ,R1 

CALL INSERT 

MOV R2, FD*LEN<R1) 



POINT TO FOLLOWING DIR ENTRY 
INSERT AN EMPTY FILE ENTRY 
FILL IN # LEFT OVER BLOCKS 



If the empty file entry u>e turned into a tentative file immediately 
a tentative file entry* add a zero length empty file entry in front 
our new tentative file entry (this entry may be used when the 
tentative file entry is closed). 



followed 
of 
earlier 



SUB 
SUB 
CMP 
BLO 
BIT 
BEQ 
ADD 
CALL 
3*: ADD 

i 

i Finished 

> 

CLC 

9*: MOV 
MOV 
RETURN 



DIRSIZ.Rl i POINT TO OUR NEW TENTATIVE FILE ENTRY 

DIRSIZ,R1 i POINT TO PREVIOUS ENTRY 

Rl. #USRBUF+DH**SZj WAS THERE A PREVIOUS ENTRY? 

3* > BR IF NOT 

#FS*TEN, FD«STA(Rl)i WAS PREVIOUS ENTRY A TENTATIVE FILE ENTRY? 



3* 

DIRSIZ.Rl 
INSERT 
DIRSIZ, Rl 



BR IF NOT 

POINT BACK TO OUR NEW TENTATIVE ENTRY 
INSERT A ZERO-LENGTH EMPTY FILE ENTRY 
POINT TO TENTATIVE FILE ENTRY WE CREATED 



SIGNAL GOOD RETURN 



<SP)+, R3 
<SP)+, R2 



f 

i 
f 

I 



I 
€ 
f 

f 
f 

€ 

i 

c 



I 

I 

f 

( 

I 

I 
< 
c 
f 

I 

I 
c 

4 
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( 

I 

I 

( 
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— Add an empty file entry to directory 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



SBTTL INSERT 



Add an empty file entry to directory 



012426 010146 



012430 012700 OOOOOOG 

012434 030061 OOOOOOG 

012440 001002 

012442 004737 013424' 



012446 005721 

012450 010100 

012452 063700 002006' 

012456 014140 

012460 020116 

012462 101375 



012464 013700 002006' 

012470 006200 

012472 005021 

012474 077002 

012476 012601 

012500 012761 



INSERT is called to create a new empty file directory entry and insert 
it into the current directory segment. 

Note: Tests before calling us guarantee that there is room in the 
current directory segment. 

Inputs: 
Rl = Address of entry new empty file entry is to go in front of. 

Outputs: 
Rl = Address of new empty file entry. 

INSERT: MOV R1,-<SP> 

Locate end-of-segment entry. 

; SEARCH FOR END-OF-SEGMENT MARKER 

;ARE WE POINTING TO IT NOW? 

;BR IF YES 

i FIND END OF SEGMENT ENTRY 



MOV 


#FS*EOS, RO 


BIT 


RO, FD*STA<R1) 


BNE 


2$ 


CALL 


NXTDIR 



Shove down all entries beyond insert point. 



2«: 



1*: 



TST <R1)+ 

MOV R 1 . RO 

ADD DIRSIZ.RO 

MOV -<R1),-(R0) 

CMP Rl, (SP) 

BHI 1* 

Initialize the new entry. 



i POINT BEYOND END-OF-SEGMENT WORD 

; MAKE ROOM FOR NEW ENTRY 

i SHOVE DOWN ALL ENTRIES 

i TILL WE REACH INSERT POINT 



3«: 



OOOOOOG OOOOOOG 



012506 000207 



MOV 


DIRSIZ, RO 


ASR 


RO 


CLR 


(Rl) + 


SOB 


RO, 3* 


MOV 


(SP)+, Rl 


MOV 


#FS*EMP, F 


Finished 




RETURN 





;SIZE OF ENTRY (BYTES) 

;GET # WORDS 

i ZERO THE ENTRY 

i GET ADDRESS OF NEW ENTRY 
#FS*EMP,FD«STA<R1);SAY ENTRY IS EMPTY 



i 



4 
I 
i 
f 



I 



f 
< 
f 
( 
I 
i 
i 
I 
i 
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i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

17 012510 

18 012512 

19 012514 

20 012516 

21 012520 
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SBTTL SPLIT — Split a directory segment 



SPLIT is called to split a directory segment when it overflows. 
SPLIT moves approximately half of the entries in the current 
segment to a new segment and links the new segment into the directory 
chain. The number of open directory segments (stored in segment # 1) 
is updated also. 

Inputs: 
Rl = Address of a directory entry of interest in current segment. 

Outputs: 
Rl = Address of directory entry of interest after split. 

USRBUF = Directory segment containing directory entry pointed to by Rl. 
C-flag set on return if there are no available free directory segments. 



24 

25 012522 

26 012530 

27 012532 
28 

29 
30 
31 
32 
33 

34 012536 

35 012542 

36 012544 

37 012552 

38 012554 

39 012556 

40 012562 
41 

42 012564 

43 012566 

44 012572 

45 012576 

46 012602 

47 012606 
48 

49 012610 

50 012616 

51 012620 

52 012624 

53 012630 
54 

55 
56 
57 



010246 
010346 
010446 
010546 
010105 



023737 
101524 
013704 



SPLIT; 



MOV 
MOV 
MOV 
MOV 
MOV 



R2, -(SP) 
R3, -<SP) 
R4, -<SP) 
R5, -<SP) 
R1,R5 



i SAVE ADDRESS OF ENTRY WE ARE INTERESTED IN 
See if there is a free segment for us to split into. 



002010' 
002002 ' 



002004 



CMP DIRNSG, DIRHIS 

BLOS 10* 

MOV GURSEG; R4 



IS THERE A FREE SEGMENT? 

BR IF NOT 

REMEMBER CURRENT DIR SEGMENT # 



There is a free segment. 

Determine where to split this segment. 

Count # of entries in this segment. 



012701 
005000 
032761 
001004 
005200 
063701 
000770 

006200 
013702 

012701 
066102 
063701 
077005 

032761 
001005 
066102 
063701 
000767 



OOOOOOC 

OOOOOOG OOOOOOG 1«: 



002006 ' 



OOOOOOC 
OOOOOOC 
OOOOOOG 
002006 ' 



OOOOOOC 

OOOOOOG 
002006 ' 



MOV #USRBUF+DH**SZ,R1; POINT TO FIRST ENTRY IN SEGMENT 

CLR RO ; COUNT # ENTRIES IN RO 

BIT #FS*EDS, FD*STA<Rl)i IS THIS THE END OF SEGMENT MARKER? 

BNE 2* iBR IF YES 

INC RO ; COUNT ANOTHER ENTRY 

ADD DIRSIZ,R1 i POINT TO NEXT ENTRY 

BR 1* 
i Leave approximately half the entries in the current segment. 

2*: ASR RO ; GET 1/2 # ENTRIES 

MOV USRBUF+DH*BLK, R2j GET BASE BLOCK # OF 1ST FILE IN SEGMENT 

MOV #USRBUF4-DH**SZ,Rli POINT TO 1ST ENTRY 

3$: ADD FD*LEN<R1),R2 i KEEP TRACK OF BLOCK #'S OF FILES 

ADD DIRSIZ,R1 ; POINT TO NEXT DIRECTORY ENTRY 

SOB RO, 3* iSKIP OVER 1/2 OF THE ENTRIES 

i Split on 1st permanent or tentative entry beyond mid-point. 

OOOOOOG 4«: BIT #<FS*PRM+FS*TEN>i FD*STA<R1 ) ; IS THIS A PERM OR TENTATIVE ENTRY? 



BNE 7* 

ADD FD*LEN<R1),R2 

ADD DIRSIZ, Rl 

BR 4* 



BR IF YES 

KEEP TRACK OF STARTING BLOCK NUMBERS 

POINT TO NEXT ENTRY 



Found split point. 

Rl = Address of 1st entry to go in new segment. 

R2 = Base block number of 1st file in new segment. 
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( 
« 
( 
I 
I 
f 
f 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

6S 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



012632 
012634 
012636 
012640 
012644 



012646 
012650 
012654 
012660 
012664 
012666 
012672 



012676 
012702 
012706 

012712 
012714 
012720 
012724 
012726 
012730 
012732 



012740 
012744 
012750 
012754 



012760 
012762 
012764 
012766 
012770 



012774 
012776 
013000 



020501 
103404 
160105 
062705 
005004 



011146 
012711 
013746 
013703 
005203 
010337 
004737 



OOOOOOC 



OOOOOOG 
OOOOOOC 
002004 ' 

OOOOOOC 
014110' 



012637 
010337 
010237 

012611 
012700 
012702 
160102 
006202 
012120 
077202 



OOOOOOC 
002002 ' 
OOOOOOC 



OOOOOOC 
002002 ' 



012734 004737 014110' 



004737 
010337 
010337 
004737 



013656' 
OOOOOOC 
002004 ' 
014110' 



005704 
001401 
010403 
010300 
004737 



010501 
000241 
000401 



013772' 



7*. 



Calculate address of dir entry we are interested in after split. 



CMP 

SUB 
ADD 
CLR 



R5, Rl 

5* 

R1,R5 

#USRBUF+DH**SZ, R5 



WILL ENTRY GO IN OLD OR NEW SEGMENT? 
BR IF GOING IN OLD SEGMENT 
CALCULATE ITS ADDRESS IN NEW SEGMENT 



R4 i REMEMBER ENTRY GOES IN NEW SEGMENT 

Truncate current segment and set link to neu segment. 



5*: 



MOV 
MOV 
MOV 
MOV 
INC 
MOV 
CALL 



(R1),-(SP) iSAVE FD*STAT FOR ENTRY FOLLOWING SPLIT 
#FS«EOS, (Rl) iSET END-OF-SEGMENT MARKER 
USRBUF+DH*NXT, -<SP);SAVE LINK TO NEXT SEGMENT 



DIRHIS. R3 

R3 

R3, USRBUF+DH*NXT 

WRTSEG 



GET # OF HIGHEST SEGMENT CURRENTLY IN USE 

GET # OF 1ST FREE SEGMENT 

SET AS NEW LINK 

WRITE OUT TRUNCATED OLD SEGMENT 



Now set up new segment. 



6$ 



SUB 


R1,R2 


ASR 


R2 


MOV 


<R1)+, (R0)+ 


SOB 


R2, 6$ 



9*: 



Set new header. 

MOV (SP)+, USRBUF+DH*NXTiSET FLINK 
MOV R3, CURSEG ; SET OUR SEGMENT # 

MOV R2, USRBUF+DH*BLK; STARTING BLOCK # FOR FILES IN SEGMENT 
Slide up directory entries from end of segment. 

MOV (SP)+><R1) ;FIX FD*STA OF 1ST ENTRY 

MOV #USRBUF+DH**SZ, RO; POINT TO TOP OF AREA FOR ENTRIES 

MOV #USRBUF+1024. ,R2; POINT PAST END OF BUFFER 

GET # BYTES TO MOVE 

GET # WORDS TO MOVE 

MOVE UP ENTRIES 

Write out the new segment. 
CALL WRTSEG 

Update information in header of 1st (master) directory segment. 

CALL RDSEGl ; READ IN DIR SEG 1 

MOV R3, USRBUF+DHfHISi SET # OF HIGHEST SEG IN USE 

MOV R3. DIRHIS 

CALL WRTSEG i WRITE OUT SEG # 1 

Now read back in the segment that has the directory entry we are 
interested in. 

IS ENTRY IN OLD OR NEW DIRECTORY SEGMENT? 

BR IF IN NEW SEGMENT 

GET NUMBER OF OLD SEGMENT 

SET AS ARGUMENT TO RDSEG 

READ IN SEGMENT WITH ENTRY WE WANT 



i GET ADDRESS OF ENTRY OF INTEREST 
; SIGNAL GOOD RETURN 



TST 


R4 


BEQ 


9* 


MOV 


R4, R3 


MOV 


R3, RO 


CALL 


RDSEG 


Finished 




MOV 


R5, Rl 


CLC 




BR 


11* 



c 

f 

< 
i 
i 
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115 
116 
117 
118 
119 
120 
121 
122 



Directory overflow 



013002 
013004 
013006 
013010 
013012 
013014 



000261 
012605 
012604 
012603 
012602 
000207 



10*: 


SEC 




11*: 


MOV 


(SP)+, R5 




MOV 


<SP)+, R4 




MOV 


(SP)+, R3 




MOV 


( SP ) +, R2 




RETURN 





J SIGNAL ERROR ON RETURN 



I 
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2 

3 

4 

5 

6 

7 

8 

9 
iO 
11 

12 013016 

13 013020 

14 013022 

15 013024 
16 

17 
IS 

19 013026 

20 013034 
21 

22 
23 

24 013040 

25 013044 

26 013050 
27 

28 013052 

29 013056 

30 013062 
31 

32 
33 

34 013064 

35 013070 

36 013072 

37 013076 

38 013100 

39 013104 

40 013106 

41 013114 

42 013116 

43 013122 

44 013130 

45 013136 

46 013140 

47 013146 
48 

49 013150 

50 013156 
51 

52 013162 



010146 
010246 
010346 
010446 



012701 
013704 
160401 

012700 
004737 
103440 



116102 
001427 
032702 
001024 
020227 
101021 
032762 
001415 
116103 

032760 
001404 
032760 
001005 

012761 
105237 

000733 
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SBTTL CONSOL — Directory segment consolidator 



f 
I 
f 



CONSOL is called to remove unnecessary entries from the current directory 
segment. The unnecessary entries that are removed are: 

1. Tentative files that are not currently open. 

2. Multiple consecutive empty entries. 

3. Empty entries of length that follotu a permanent entry. 



Inputs: 
USRBUF 



CONSOL: 



MOV 
MOV 
MOV 
MOV 



Current directory segment. 

R 1 , - < SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -<SP) 






Get exclusive access to job context block buffer 



105037 002050' 



OCALL 
CLRB 



GETCXT 
CNSLXD 



j Get exclusive access to context block buffer 
i Say ue haven't changed anything yet 



Pass 1: Convert unopen tentative entries into empty entries. 



OOOOOOC 
002006 ' 



OOOOOOG 
013424' 



3« 



OOOOOOG 
000001 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
002050 ' 



OOOOOOG 1« 



2*: 



MOV 
MOV 
SUB 
Find the n 
MOV 
CALL 
BCS 
We found a 
Rl points 
See if the 
MOVB 
BEQ 
BIT 
BNE 
CMP 
BHI 
BIT 
BEQ 
MOVB 
OCALL 
BIT 
BEQ 
BIT 
BNE 
Convert th 
MOV 
INCB 
Check next 
BR 



#USRBUF+DH**S2, Rli POINT TO 1ST ENTRY 

DIRSIZ,R4 SCARRY DIRECTORY ENTRY SIZE IN R4 

R4, Rl i POINT IN FRONT OF 1ST ENTRY FOR NXTDIR 

ext tentative file entry, 

#FS*TEN, RO ;LOOK FOR A TENTATIVE FILE ENTRY 

NXTDIR } DO SEARCH 

5* iBR IF NO MORE TENTATIVE FILE ENTRIES 

tentative file entry, 
to the entry, 
entry is open now. 

FD* JOB < R 1 ) , R2 

1* 

#1.R2 

1* 

R2, #LSTSL 

1« 

#«DILUP. LSW(R2) 

1$ 

FD*CHN(R1>.R3 

GETCHA 

#CS*OPN>C. CSW(RO: 

1* 

#CS*ENT. C. CSW(RO: 

2« 



i GET # OF JOB USING ENTRY 

; BR IF NOT TSX JOB 

i TSX JOB NUMBER CAN NEVER BE ODD 

i BR IF NOT TSX JOB USING CHANNEL 

iMAKE SURE JOB NUMBER IS NOT TOO BIG 

} BR IF NOT TSX JOB 

i IS THAT JOB LOGGED ON? 

;BR IF NOT 

;GET CHANNEL # ASSOCIATED WITH FILE 

i GET POINTER TO CHANNEL BLOCK 

)JIS THAT CHANNEL OPEN? 

i BR IF NOT 

)iIS CHANNEL OPEN FOR CREATING A NEW FILE? 

i BR IF YES 
is tentative file entry to an empty file entry. 

#FS*EMP, FD*STA(R1); SAY THIS IS AN EMPTY FILE ENTRY 
CNSLXD i REMEMBER WE HAVE CHANGED THE SEGMENT 

entry. 
3* 



t 



TSUSR - 
CONSOL - 

1 
2 
3 
4 
5 
6 
7 
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013164 
013170 
013172 

8 013176 

9 013202 
10 

11 

12 013204 

13 013206 

14 013210 

15 013216 
16 

17 013220 

18 013226 
19 

20 013232 

21 013234 

22 013240 
23 

24 

25 013244 

26 013246 

27 013250 

28 013252 

29 013254 

30 013256 

31 013260 
32 

33 
34 
35 

36 013262 

37 013266 

38 013270 

39 013272 

40 013274 

41 013300 

42 013302 

43 013310 
44 

45 013312 

46 013314 

47 013316 

48 013322 

49 013326 

50 013330 

51 013332 

52 013334 

53 013336 

54 013340 

55 013344 
56 

57 013346 



012701 
160401 
012700 
004737 
103462 



010102 
060402 
032762 
001421 

066261 
105237 

010146 
012700 
004737 



010200 
060400 
012022 
020001 
101775 
012601 
000751 



005761 
001027 
010102 
160402 
020227 
103422 
032762 
001416 

010246 
010102 
012700 
004737 
010200 
060400 
012022 
020001 
101775 
105237 
012601 

000711 



Pass 2; Consolidate consecutive empty entries and emtpy entries 
of zero length preceded by a permanent file entry. 



OOOOOOC 

OOOOOOG 
013424' 



OOOOOOG OOOOOOG 



OOOOOOG 
002050 ' 



OOOOOOG 
013424' 



OOOOOOG 



5*: MOV #USRBUF+DH**SZ,Rli POINT TO 1ST ENTRY 

R4, Rl i POINT IN FRONT OF 1ST ENTRY 

11*: MOV #FS*EMP,RO i SEARCH FOR NEXT EMTPY FILE ENTRY 

NXTDIR 

12* iBR IF THERE ARE NO MORE 

We have found an empty file entry. 

Combine it with the following entry if it is empty too. 
7*: MOV R1,R2 i GET ADDRESS OF CURRENT ENTRY 

R4, R2 ; POINT TO NEXT ENTRY 

#FS*EMP,FD*STA(R2)i IS NEXT ENTRY EMPTY TOO? 
8* i BR IF NOT 

two entries. 
FD*LEN<R2),FD*LEN(Rl)i COMBINE ALLOCATED SIZES 
CNSLXD i REMEMBER WE HAVE CHANGED THE SEGMENT 

second empty entry. 

R1,-<SP) i REMEMBER ADDRESS OF 1ST EMPTY ENTRY 
#FS*EOS> RO ; SEARCH FOR END OF SEGMENT MARKER 
NXTDIR 
Rl now points to end of segment marker. 
Move up entries over the one being removed (pointed to by R2). 

GET ADDRESS OF ENTRY TO BE REMOVED 

POINT TO FOLLOWING ENTRY 

MOVE UP REST OF ENTRIES OVER ONE BEING REMVD 

MOVED END~OF-SEGMENT MARKER YET? 

BR IF NOT 

GET BACK ADDRESS OF IST EMPTY ENTRY 

SEE IF THERE ARE MORE EMPTIES TO BE MERGED 



6*: 



MOV 

SUB 

MOV 

CALL 

BCS 



MOV 
ADD 
BIT 
BEQ 

Combine th( 
ADD 
INCB 

Remove the 
MOV 
MOV 
CALL 



MOV 

ADD 

MOV 

CMP 

BLOS 

MOV 

BR 



R2. RO 

R4, RO 

<R0)+, <R2)+ 

RO, Rl 

6* 

(SP)+, Rl 

7* 



This empty is not followed by any other empty entries. 

See if it is of zero length and follows a permanent file entry. 



OOOOOOG 

OOOOOOC 
OOOOOOG OOOOOOG 



8*: 



OOOOOOG 
013424' 



10*: 



002050 



9*: 



TST 
BNE 
MOV 
SUB 
CMP 
BLO 
BIT 
BEQ 
Remove a 
MOV 
MOV 
MOV 
CALL 
MOV 
ADD 
MOV 
CMP 
BLOS 
INCB 
MOV 
for 
BR 



FD*LEN(R1) 
9* 

R1,R2 
R4, R2 



IS THIS EMPTY OF ZERO LENGTH? 

BR IF NOT 

GET ADDRESS OF ENTRY 

GET ADDRESS OF PREVIOUS ENTRY 



R2, #USRBUF+-DH**SZi ARE WE 1ST ENTRY? 
9* iBR IF YES 

#FS*PRM, FD*STA<R2)i IS PREVIOUS ENTRY A PERMANENT FILE? 
9* iBR IF NOT 

zero length empty entry following a permanent file entry. 



Look 



R2, -<SP) 
R1/R2 
#FS*EOS, RO 
NXTDIR 
R2, RO 
R4, RO 

(R0)+, (R2) + 
RO, Rl 
10* 
CNSLXD 
(SP)+, Rl 
next empty entry. 
U* 



i SAVE ADDRESS OF PERMANENT FILE ENTRY 

; GET ADDRESS OF EMPTY ENTRY 

; SEARCH FOR END OF SEGMENT ENTRY 

i GET ADDRESS OF EMPTY ENTRY 

i POINT TO FOLLOWING ENTRY 

iMOVE UP FOLLOWING ENTRIES OVER EMPTY ENTRY 

;HAVE WE MOVED END-OF-SEGMENT MARKER YET? 

iBR IF NOT 

i REMEMBER WE HAVE CHANGED THIS SEGMENT 

;GET BACK ADDRESS OF PERMANENT FILE ENTRY 



TSUSR — File operation EMT's MACRO V05. 05 
CONSOL — Directory segment consol idator 



Wednesday 18-Jan-89 12: 



Page 42-1 



58 
59 
60 

61 013350 

62 013356 

63 013360 

64 013362 

65 013364 

66 013366 



12$ 



012604 
012603 
012602 
012601 
000207 



Finished 




OCALL 


FRECXT 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





jRelease context block buffer 



I 
I 

l' 

r 
f « 

( 

I i 

C 
< 

I 

I 

I 
I 

c 

( 



TSUSR - 


-- File 


operation EMT's 


GETDIR - 


— Locat 


e next d 


irectory 


1 








2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 


013370 






18 








19 








20 








21 


013370 


004737 


013424' 


22 


013374 


103012 




23 








24 








25 








26 


013376 


010046 




27 


013400 


013700 


OOOOOOC 


28 


013404 


001404 




29 


013406 


004737 


013772' 


30 


013412 


012600 




31 


013414 


000765 




32 








33 








34 








35 


013416 


012600 




36 


013420 


000261 




37 








38 








39 








40 


013422 


000207 





MACRO V05. 05 Wednesday lS-Jan-S9 12:12 Page 43 
entry 

. SBTTL QETDIR — Locate next directory entry 



GETDIR is called to get the address of the next directory entry of 
a specified type. Directory segments are read if necessary to find 
the next such entry. 

Inputs: 
Rl = Address of last directory entry. 
RO = FS*xxx entry type flags. 
USRBUF = Current directory segment. 

Outputs: 
Rl = Address of next directory entry of the specified type. 
USRBUF = Directory segment that contains the entry. 
C-flag set if no entry of the specified type can be found. 

GETDIR: 

See if ue can find entry of specified type in the current directory segment. 



1*: 



CALL 
BCC 



NXTDIR 
9* 



i SEARCH FOR ENTRY OF SPECIFIED TYPE 
J BR IF WE FOUND ONE 



Hit end of current directory segment. See if there are more segments. 



GET # OF NEXT SEGMENT IN LIST 
BR IF REACHED END 
READ IN NEXT SEGMENT 
GET BACK TYPE FLAGS 
SEARCH THIS SEGMENT 



MOV 


RO, -<SP) 


MOV 


USRBUF+DH*NXT, RO 


BEQ 


2* 


CALL 


RDSEG 


MOV 


(SP)+, RO 


BR 


1$ 



No entry of the specified type ujas found 
2*: MOV <SP)+, RO 



MOV 
SEC 



finished 
9*: RETURN 



; CLEAN OFF STACK 

i SIGNAL FAILURE ON RETURN 



t 

i 
i 

f 

i 
i 



i 
i 
« 
f 

i 

i 
i 

i 



I 
I 

c 

I 

I 

i 
« 

c 

' i 



TSUSR — 
NXTDIR — 

1 



File operation EMT's 
Locate next directory 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 013424 

15 013430 

16 013434 

17 013436 
IB 013444 
19 

20 013446 

21 013450 
22 

23 013452 

24 013454 
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. SBTTL NXTDIR — Locate next directory entry in current segment 

NXTDIR is called to get the address of the next directory entry of a 
specified type within the current directory segment. 

Inputs: 
RO = FS*xxx directory entry type flags. 
Rl = Address of last directory entry. 

Outputs: 
Rl = Address of directory entry found. 
C-fiag set if no entry of specified type could be found. 



063701 002006' 

030061 OOOOOOG 

001006 

032761 OOOOOOG 

001767 

000261 
000401 

000241 
000207 



NXTDIR: ADD 

BIT 

BNE 

OOOOOOG BIT 

BEQ 



i POINT TO NEXT DIRECTORY ENTRY 

i IS THIS ENTRY OF THE RIGHT TYPE? 

iBR IF YES 

#FS*EOS. FD*STA<Rl)i IS THIS THE END-OF-SEGMENT MARKER? 

NXTDIR i KEEP SEARCHING IF NOT 



DIRSIZ.Rl 

RO, FD*STA<R1) 

1* 



i Hit end of segment. 

SEC 

BR 9* 
i Found entry. 
1$: CLC 
9*: RETURN 



i SIGNAL FAILURE ON RETURN 



i SIGNAL SUCCESS ON RETURN 



I 
« 

c 

I 

< 

i 

( 

( 

t 
t 
€ 

< 

i 

4 

I 
i 



i 
I 
f 

I _ 

4 
( 

r 

1 I 



TSUSR - 
DIDDLE - 

X 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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- Allow user to access directory entry 



013456 
013464 
013466 
013470 
013472 
013474 
013476 



013500 
013504 
013510 
013512 
013514 



013516 
013522 
013526 
013532 
013534 
013536 
013542 
013544 
013546 



013550 
013554 
013560 
013564 



032737 
001455 
010246 
010346 
010446 
010546 
010146 



012703 
012700 
012146 
106623 
077003 



013703 
012743 
010337 
106506 
012603 
012746 
106643 
010346 
106606 



012701 
013746 
013746 
000002 



SBTTL DIDDLE 



Allou user to access directory entry 



DIDDLE is called to give the user <especially PIP) a chance to access 

and possible alter a directory entry. 

A program requests this feature by storing the address of a routine to 

be called in the fifth word of the argument block for .ENTER, .LOOKUP, 

or .RENAME emt's and setting the name argument word odd. 

The specified routine is called with Rl pointing to the date word of 

the directory entry. 



Inputs: 
Rl = Address of the directory entry. 
EMTBLK - Argument list for the emt. 

Outputs: 
Directory entry may have been modified by the user. 



000001 



0000020 DIDDLE: BIT 

BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 



#1, EMTBLK+2 

9* 

R2, -(SP) 

R3, -<SP) 

R4, -<SP) 

R5, -<SP) 

R 1 , - < SP ) 



i DOES USER WANT TO DIDDLE WITH THE ENTRY? 
iBR IF NOT 



iSAVE ADDRESS OF DIR ENTRY ON TOP OF STACK 



User does want to diddle with the directory entry. 
Move directory entry to user's address space. 



000300 
OOOOOOC 



1*: 



MOV 


#USRUCA, R3 


MOV 


#FD**SZ/2, RO 


MOV 


(Rl)+,-(SP) 


MTPD 


<R3) + 


SOB 


RO, 1* 



GET ADDRESS OF AREA IN USER'S AREA 
GET # WORDS TO MOVE 
PICK UP WORD FROM DIRECTORY ENTRY 
MOVE TO AREA IN USER'S SPACE 
MOVE ALL OF DIRECTORY ENTRY 



Use special EMT to get control back from user's routine. 



OOOOOOG 
013566' 
OOOOOOG 



OOOOOOG 



> Get pointer to top of return addr stack 
i Push our return address 
; Save updated stack pointer 
iGET USER'S STACK POINTER 

iPUSH ADDR OF EMT INSTRUCTION ON USER'S STACK 

iNOW STORE UPDATED USER STACK POINTER 



Now enter user's routine in user mode. 

(Use RTI to do this) 

On entry to user's routine, Rl points to the directory entry. 



MOV 


EMTCAD, R3 


MOV 


#5*, -(R3) 


MOV 


R3, EMTCAD 


MFPD 


SP 


MOV 


(SP)+, R3 


MOV 


#CPLEMT, -(SP) 


MTPD 


-(R3) 


MOV 


R3, -(SP) 


MTPD 


SP 



000300G 
OOOOOOG 
0000 lOG 



MOV 
MOV 
MOV 

RTI 



#USRUCA+FD«DAT, R1;MAKE Rl POINT TO DATE WORD OF DIRECTORY ENTRY 



EMTPS, - ( SP ) 
EMTBLK+10, -(SP) 



PS 

PC = Address of user's routine 

ENTER USER'S ROUTINE 



Return here from user's routine (when EMT is done). 



I 
I 
f 

c 

i 

« 
€ 
f 

( 

i 

i 

« 

( 
« 

i 

i 
i 



i 

f 
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58 
59 

60 013566 

61 013570 

62 013574 

63 013600 

64 013602 

65 013604 
66 

67 
68 

69 013606 

70 013610 

71 013612 

72 013614 

73 013616 

74 013620 



Move directory entry back to directory buffer. 



011602 
012703 
012700 
106523 
012622 
077003 



012601 
012605 
012604 
012603 
012602 
000207 



000300 
OOOOOOC 



5*: 



2*: 



9*: 



MOV 


<SP),R2 


MOV 


#USRUCA, R3 


MOV 


#FD*«SZ/2, RO 


MFPD 


<R3> + 


MOV 


<SP)+, <R2) + 


SOB 


R0>2« 


inished 




MOV 


(SP)+,R1 


MOV 


<SP)+, R5 


MOV 


(SP)+. R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





;GET ADDRESS WHERE WE SHOULD PUT DIR ENTRY 

i POINT TO AREA IN USER'S AREA WITH DIR ENTRY 

;GET # WORDS TO MOVE 

iOET A WORD FROM USER'S DIRECTORY ENTRY 

i MOVE BACK TO OUR INTERNAL AREA 

; MOVE ALL OF ENTRY 



I 

€ 
c 
t 
f 

c 



r 



i 
i 
i 
i 
i 
I 
f 

C 

< 

i 
< 

c 

I 
i 
i 



TSUSR — File operation EMT's MACRO V05. 05 Wednesday lS-Jan-89 12:12 Page 46 
SBCALC — Calculate starting block # for a file entry 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 013622 010246 

13 013624 013700 OOOOOOC 

14 013630 012702 OOOOOOC 

15 013634 020201 

16 013636 001405 

17 013640 066200 OOOOOOG 

18 013644 063702 002006' 

19 013650 000771 

20 013652 012602 

21 013654 000207 



. SBTTL SBCALC — Calculate starting block # for a file entry 

SBCALC is called to calculate the starting block number of a file. 

Inputs: 
Rl = Address of directory entry for file. 
USRBUF = Directory segment containing entry. 

Outputs: 
RO = Starting block number of the file. 



SBCALC: MOV 
MOV 



1*: 



2*: 



MOV 

CMP 

BEQ 

ADD 

ADD 

BR 

MOV 

RETURN 



R2, -(SP) 

USRBUF+DH*BLK, ROj GET BLOCK # OF 1ST FILE IN THIS DIR SEGMENT 

#USRBUF+DH**SZ, R2i POINT TO 1ST DIR ENTRY IN THIS SEGMENT 



R2, Rl 

2« 

FD*LEN<R2).R0 

DIRSIZ, R2 

1« 

(SP)+, R2 



HAVE WE REACHED OUR ENTRY? 

BR IF YES 

ADD SPACE ALLOCATED TO THAT FILE ENTRY 

POINT TO NEXT ENTRY 



f 

c 
c 

i 

i 

« 

i 

I 

€ 

I 

i 

i 

€ 

I 
I 

I 

c 
( 
( 
( 
I 



i 

€ 



TSUSR 
RDSEOl - 

1 



- File 

- Read 



operation EMT's 
Ist directory se< 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 013656 
17 
18 
19 

20 013656 

21 013662 
22 

23 
24 

25 013666 

26 013672 

27 013700 

28 013706 

29 013710 

30 013716 

31 013720 

32 013724 

33 013730 

34 013732 

35 013736 

36 013742 

37 013750 
38 

39 
40 

41 013752 

42 013756 
43 

44 

45 

46 013760 

47 

48 

49 

50 013762 

51 013766 
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. SBTTL RDSEGl — Read 1st directory segment 

RDSEGl is called to read the first directory segment on a device 
and set up parameters about the directory. 

Inputs: 
CHNNUli = Number of channel ue are working on. 

Outputs: 
Rl = Pointer to dummy directory entry in front of 1st real one <for NXTDIR). 
USRBUF = 1st directory segment. 
CURSEG = O 

DIRHIS = .Nlumber of highest directory segment in use. 
DIRSIZ = Number of bytes per directory entry. 

RDSEGl: 

Read in directory segment # 1 



012700 
004737 



012701 
016137 
016137 
001425 
023727 
101021 
016100 
020027 
101014 
062700 
010037 
026127 
103404 



062701 
160001 



000207 



012700 
000137 



000001 
013772' 



000002 " 
OOOOOOG 
0000000 



MOV 
CALL 



#1, RO 
RDSEG 



i SAY WE WANT SEG # 1 
i READ THE SEGMENT IN 



Set up parameters about the directory 



002004 ' 
002010' 



002010' 000037 

OOOOOOG 
001000 



OOOOOOG 
002006 ' 
OOOOOOG 



OOOOOOG 



MOV 
MOV 
MOV 
BEQ 
CMP 
BHI 
MOV 
CMP 
BHI 
ADD 
MOV 
CMP 
BLO 



#USRBUF, Rl ; POINT TO BUFFER WITH DIRECTORY SEGMENT 

DH«HIS(R1)> DIRHIS; HIGHEST SEGMENT # USED 

DH*NSG(R1.), D I RNSG; NUMBER OF DIRECTORY SEGMENTS AVAILABLE 



BR IF INVALID DIRECTORY 
CHECK TO SEE IF VALID 
BR IF INVALID 

# EXTRA BYTES PER DIRECTORY ENTRY 
CHECK IF REASONABLE 
BR IF INVALID 

# STANDARD BYTES PER DIRECTORY ENTRY 
TOTAL # BYTES PER DIRECTORY ENTRY 

DH*BLK<Rl)>#DH**BSiMAKE SURE BASE BLOCK # IS REASONABLE 
5* ; BR IF INVALID 



5* 

DIRNSG, #31. 

5* 

DH*NEB<R1),R0 

RO, #512. 

5* 

#FD*OPT, RO 

RO, DIRSIZ 



Point Rl in front of 1st directory entry so NXTDIR uiill get 1st real entry. 



OOOOOOG 



ADD #DH**SZ,R1 
SUB RO, Rl 

Finished 

RETURN 

Invalid directory 



i POINT TO 1ST REAL DIRECTORY ENTRY 
i POINT BACK 1 ENTRY 



177755 
015356' 



5*: 



MOV 
JMP 



#UERR6, RO 
USRCLS 



; FATAL ERROR 



f 
I 



i 
i 
f 
I 
I 
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i 
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6 








7 








8 








9 








10 








11 








12 








13 








14 


013772 


020037 


002002 ' 


15 


013776 


001437 




16 


014000 


010001 




17 








18 


014002 


010137 


002002 ' 


19 


014006 


005301 




20 


014010 


006301 




21 


014012 


062701 


OOOOOOG 


22 








23 


014016 






24 


014060 


103006 




25 


014062 


004737 


015426' 


26 


014066 


012700 


177775 


27 


014072 


000137 


015356' 


28 








29 


014076 


012701 


OOOOOOC 


30 


014102 


163701 


002006 ' 


31 


014106 


000207 
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. SBTTL RDSEO — Read a directory segment 

RDSEG is called to read a directory segment. 



Inputs: 
RO = Number of directory segment to be read. 
CHNNUM = Number of current channel being used. 

Outputs: 
Rl = Address of dummy directory in front of first real one. 
USRBUF = Segment read in. 
CURSEG = Number of segment read in. 



RDSEG: 



CMP 
BEQ 
MOV 



RO, CURSEG 

1* 

RO, Rl 



IS DESIRED SEGMENT ALREADY IN BUFFER? 
BR IF YES 
GET SEG # 



Convert segment # to absolute block #. 



2*: MOV Rl, CURSEG 

DEC Rl 

ASL Rl 

ADD #DH**BS, Rl 



SAVE CURRENT SEGMENT # 
1ST DIRECTORY SEGMENT IS # 1 
CVT SEGMENT # TO BLOCK # 
BASE BLOCK # OF 1ST SEGMENT 



Read in the segment. 

. READW #USREMT, CHNNUM, tUSRBUF, #512. , Rl 



BCC 
CALL 
MOV 
JMP 



1* 

ERRNAM 
#-3, RO 
USRCLS 



BR IF NO ERROR 

SET FILE SPEC FOR TSKMON ERROR MESSAGE 

DIRECTORY READ ERROR 



i Set Rl to point to dummy directory entry in front of first real one. 
1*: MOV #USRBUF+DH**SZ,R1; POINT TO FIRST REAL ENTRY IN SEGMENT 

SUB DIRSIZ,R1 i POINT IN FRONT OF FIRST ONE 

RETURN 



TSUSR - 


— File 


operation EMT's 


WRTSEG - 


— Write 


directory segme 


1 
2 








3 








4 








5 








6 








7 








8 








9 


014110 


010146 




10 


014112 


013701 


002002 ' 


11 


014116 


005301 




12 


014120 


006301 




13 


014122 


062701 


OOOOOOG 


14 


014126 






15 


014170 


103006 




16 


014172 


004737 


015426' 


17 


014176 


012700 


177775 


18 


014202 


000137 


015356' 


19 


014206 


012601 




20 


014210 


000207 
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. SBTTL WRTSEG — Write directory segment 

WRTSEG writes the current directory segment to disk. 

Inputs: 
USRBUF = Current segment. 
CURSEO = Number of current segment in USRBUF. 



WRTSEG: 


MOV 


R1,-(SP) 




MOV 


CURSEG, Rl 




DEC 


Rl 




ASL 


Rl 




ADD 


#DH$«BS«R1 




. WRITW 


#USREMT, CH 




BCC 


1* 




CALL 


ERRNAM 




MOV 


#-3, RO 




JMP 


USRCLS 


1*: 


MOV 
RETURN 


(SP)+,R1 



GET CURRENT SEGMENT # 

1ST SEGMENT IS # 1 

CVT SEGMENT # TO BLOCK # 

BASE BLOCK # OF 1ST SEGMENT 

ISRBUF, #512. ,R1 

BR IF WRITE OK 

SET FILE SPEC FOR TSKMON ERROR MESSAGE 

DIRECTORY WRITE ERROR 

ABORT OPERATION 
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014222 
014226 
014232 
014234 
014240 
014244 
014246 
014252 
014256 



014264 
014270 
014274 
014302 
014304 
014310 
014314 
014316 
014320 
014322 
014324 
014326 
014330 
014334 
014340 
014344 
014350 
014354 
014356 
014362 



SPLDIR is jumped to from the normal USR directory routines to perform 
a directory operation on a special type device such as a magnetic 
tape or cassette. SPLDIR releases the USR> performs the operations 
and then returns from the emt. 

Inputs: 
R2 = Operation function code (DF*xxx). 
R3 = Address of CSW for channel. 
FILSPC = File spec. 



014212 



014212 004737 010146' 



014216 004737 014610' 



SPLDIR: 



013701 
042701 
010246 
012702 
004737 
012602 
005037 
005037 
042763 



004737 
010361 
013761 
010105 
062705 
010561 
010300 
012025 
012025 
012025 
012025 
011015 
016300 
042700 
110061 
013700 
020227 
001402 
013700 
010061 



000002G 
000001 

OOOOOOG 
007720 ' 

OOOOOOG 
OOOOOOG 
OOOOOOC OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



Free the USR module. 

CALL FREUSR ; FREE THE USR DATA BASE FOR OTHERS TO USE 

Obtain exclusive access to special device data base. 

CALL GETSPD i GAIN EXCLUSIVE ACCESS TO SPD DATA BASE 

Copy the untranslated device/file specification from the user's area 
to a system buffer. 

Point to file spec in user's arsa 
Make sure address is even 
Save operation function code 
Point to buffer where name is to be stored 
Copy file spec to SPFLDV 
Restore operation function code 
HANDLER RETURNS FILE SIZE HERE 
HANDLER RETURNS ERROR CODE HERE 
#<CS*E0F!CS1iERR>>C. CSW(R3) > IGNORE PRIOR ERROR 

Build an I/O queue entry to do the operation. 



MOV 


EMTBLK+2, R 1 


BIC 


#1;R1 


MOV 


R2, -<SP> 


MOV 


#SPFLDV, R2 


CALL 


CPYSPC 


MOV 


(SP)+, R2 


CLR 


SPSI2E 


CLR 


SPUSR 


BIC 


#<CS*EOF ! CS 



OOOOOOG 

177701 

OOOOOOG 

000006G 

OOOOOOG 

000004G 
OOOOOOG 



6*: 



CALL GETQ 

MOV R3, Q. UCSW(Rl) 

MOV e#KP AR6, Q. PA6 < R 1 

MOV R1,R5 

ADD #Q. ICSW, R5 

MOV R5, Q. CSWCRl) 

MOV R3, RO 

MOV <R0)+, <R5)+ 

MOV <R0)+, <R5) + 

MOV <R0)+, <R5)+ 

MOV <R0)+, <R5)+ 

MOV (RO), <R5) 

MOV C. CSW(R3),R0 

BIC #'^C76, RO 

MOVB RO, Q. DEVX(Rl) 

MOV EMTBLK+6> RO 

CMP R2, #DF*ENT 

BEQ 6* 

MOV EMTBLK+4, RO 

MOV RO, Q. BLKN<R1) 



iGET A FREE I/O QUEUE ENTRY 

i SET ADDRESS OF CHANNEL CSW 

)iSave mapping for context block 

i Get address of Q element 

; Point to internal CSW cell 

i Set up pointer to internal CSW cell 

i Get pointer to original channel block 

iCopy original channel block to internal one 



Get the channel status uiord 

Isolate the device index number 

store the device index number 

GET FILE SEQUENCE # FOR . ENTER 

ARE WE DOING A . ENTER? 

BR IF YES 

GET SEQUENCE # FOR . LOOKUP, . DELETE, ETC. 

SET SEQUENCE # IN Q. BLKN FIELD 



TSUSR - 
SPLDIR - 
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014366 
014374 
014400 
014406 
014412 
014414 
014420 
014424 
014430 
014434 
014440 
014442 
014446 
014450 
014452 
014456 
014462 
014466 
014472 
014476 



014510 
014520 

014522 



014530 
014536 



014546 
014552 
014554 
014560 
014562 



014566 
014570 
014572 
014576 



013761 
110261 
116361 
113700 
006200 
110061 
072027 
042700 
150061 
012704 
005005 
073427 
000241 
006005 
072527 
062705 
010561 
010461 
005061 
013761 



000004G OOOOOOG 
0000000 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

000003 

177407 

OOOOOOG 

OOOOOOG 

177772 



177767 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 



MOV 

MOVB 

MOVE 

MOVB 

ASR 

MOVB 

ASH 

BIG 

BISB 

MOV 

CLR 

ASHC 

CLC 

ROR 

ASH 

ADD 

MOV 

MOV 

CLR 

MOV 



EMTBLK+4, Q. WCNKRDiSET FILE ENTER SIZE IN Q. WCNT FIELD 

R2, Q. FUNC<R1) i SET OPERATION FUN CODE (LOOKUP, ENTER, ETC. ) 

C. DEVQ(R3),Q. UNIT<Rl)iSET UNIT NUMBER 



CORUSR, RO 

RO 

RO, Q. J0B<R1) 

#3, RO 

#'C<370>, RO 

RO, Q. JNUM<R1) 

#SPFLNM, R4 

R5 

#-6, R4 

R5 

#-9. , R5 
#VPAR6, R5 
R5, Q. BUFF<R1) 
R4, Q. PAR(Rl) 
Q. COMPCRl) 



Get current job index number 

Convert to job number 

Set job number in queue element 

Position for Q. JNUM field 

Clear all but job number field 

Set job # in queue element 

GET ADDRESS OF FILE SPEC BUFFER 

SET FOR SHIFT 

SHIFT LOW-ORDER 6 BITS INTO R5 

RIGHT JUSTIFY LOW-ORDER 6 BITS IN R5 

BIAS ADDRESS TO BE IN PAR6 RANGE 
SET THIS AS VIRTUAL BUFFER ADDRESS 
SET PAR6 BASE OFFSET 
NO COMPLETION ROUTINE 



CHNNUM, Q. CHAN<Rl)iSET USER'S CHANNEL NUMBER 
Initiate the I/O operation. 



014504 004737 OOOOOOG 



103003 
012737 



013737 
013705 



177775 OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 



CALL QIO 

Wait for I/O to finish. 

.WAIT CHNNUM 
BCC 3« 
Directory I/O error. 

MOV #-3, SPUSR 



i QUEUE THE I/O OPERATION 



iWAIT FOR OPERATION TO FINISH 
;BR IF NO I/O ERROR 



i SET I/O ERROR CODE 
Return handler reported file size to user in RO. 



3*: MOV SPSIZE, URO 
MOV SPUSR, R5 



j RETURN HDLR REPORTED FILE SIZE IN USER'S RO 
i GET HANDLER REPORTED ERROR CODE 



014542 004737 014652 



020227 
001405 
020227 
001402 
005063 



010500 
001002 
000137 



OOOOOOG 
OOOOOOG 
OOOOOOG 



Release special device data base area. 

CALL FRESPD i FREE SPD AREA 

See if we should purge the channel. 



DOING A LOOKUP? 

BR IF YES 

DO I NT AN ENTER? 

BR IF YES 

PURGE THE CHANNEL 



See if handler reported an error 



CMP 


R2, #DF*LOK 


BEQ 


4* 


CMP 


R2, #DF«ENT 


BEQ 


4* 


CLR 


C. CSW<R3) 



OOOOOOG 



4*: 



5*: 



MOV 


R5, RO 


BNE 


5* 


JMP 


EMTXIT 



DID HANDLER RETURN AN ERROR CODE? 
BR IF YES 
NORMAL EMT EXIT 

CLR C.CSW<R3) i PURGE CHANNEL IF ERROR OCCURED 
This change <from CLR to BIO is implemented to allow "some" information 
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I 

4 



115 •> •> to be returned by . CSTAT on failed lookups. RT-ii actually maintains ^ 

I * 116 ii a valid C. CSW word on this type of error so their .CSTAT always uiorks. * 

i 117 014576 042763 OOOOOOG OOOOOOG BIC #CS*OPN, C. CSW<R3) i SPECIAL PURGE FOR NON-RT DIR DEVICES 

• 118 014604 000137 OOOOOOG JMP SETERR i RETURN ERROR CODE 
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TSUSR — File 
GETSPD — Gain 

1 

C 

3 
4 
5 
6 

7 014610 

8 014614 

9 014616 
10 014622 
11 

12 
13 
14 

15 014624 

16 014630 

17 014634 

18 014640 
19 

20 
21 

22 014642 

23 014650 
24 

25 
26 
27 
28 
29 

30 014652 

31 014660 

32 014662 
33 

34 
35 

36 014666 

37 014672 
38 

39 
40 
41 014676 



operation EMT's 
exclusive access 
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to special device data base 



I 
I 



. SBTTL GETSPD 



Gain exclusive access to special device data base 



GETSPD is called to gain exclusive access to the special device data base. 
If the data base is currently in use by another job» our job is suspended 
until the data base becomes free. 



1 1 3700 0000000 

001412 

120037 OOOOOOG 

001412 



GETSPD: MOVE 
BEQ 
CMPB 
BEQ 



SPDJOB, RO 

IS 

RO, CORUSR 

2* 



IS SPD DATA BASE FREE NOW? 
BR IF YES 

HAVE WE ALREADY GOT IT? 
BR IF YES 



Someone else owns SPD data base. 
Suspend our job until it becomes free. 



012700 OOOOOOG 

004737 OOOOOOG 

004737 OOOOOOG 
000763 



MOV 


#S«QSPD, RO 


CALL 


QNSPNX 


CALL 


CHKABT 


BR 


GETSPD 



113737 
000207 



OOOOOOG 



OOOOOOG 1*: 
2«: 



We can get SPD data base now. 

MOVE C OR USR , SP D JOB 
RETURN 



QUEUE FOR SPD DATA BASE 

PUT US AT TAIL OF QUEUE FOR IT 

SEE IF WE WERE ABORTED WHILE ASLEEP 

NOW TRY TO GET SPD 



i CLAIM SPD DATA BASE FOR US 



SBTTL FRESPD — Free special device data base 



Free the special device data base and restart any user who is waiting 
for it. 



123737 OOOOOOG 

001006 

105037 OOOOOOG 



OOOOOOG FRESPD: CMPB CORUSR, SPD JOB 

BNE 1* 
CLRB SPDJOB 



DO WE CURRENTLY OWN SPD? 
BR IF NOT 
FREE IT 



012700 
004737 



000207 



OOOOOOG 
OOOOOOG 



Restart any job that is waiting for SPD data base. 



iOET SPD WAIT QUEUE STATE CODE 
i RESTART ANY WAITING JOB 



MOV 


#S*QSPD, RO 


CALL 


UREGO 


; Finished 




1«: RETURN 





TSUSR 
CSHADD 
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. SBTTL CSHADD — Add file entry to directory cache 

CSHADD is called to add a new file entry to the directory cache. 

Inputs: 
Rl = Pointer to directory entry for file in USRBUF. 
FILDVU = Device # / unit # 



014700 010246 

014702 010346 

014704 010446 

014706 010546 



014710 004737 015210' 
014714 103440 



CSHADD: 


MOV 


R2/-(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -<SP) 




MOV 


R5. -<SP) 



See if (ue are caching file entries for this device 



CALL 
BCS 



CSHTST 
9* 



;ARE WE TO CACHE ENTRIES FOR THIS DEVICE? 
;BR IF NOT 



OOOOOOC 



014716 012702 

014722 010203 

014724 016202 

014730 005762 

014734 001403 

014736 005762 0000000 

014742 001367 



1*: 



ooooooe 

OOOOOOG 



We are caching entries for this device. 

Find least recently used entry in cache table (or 1st unused entry). 

MOV #CSHHD-FC«LNK, R2i DUMMY POINTER TO PHANTOM FIRST ENTRY 

MOV R2. R3 i REMEMBER ADDRESS OF PREVIOUS ENTRY 

MOV FC*LNK(R2),R2 i CHAIN FORWARD TO NEXT ENTRY IN LIST 

TST FC*CDX(R2) i IS THIS ENTRY UNUSED? 

BEG 2* i BR IF YES 

TST FC*LNK(R2) J IS THIS THE LAST ENTRY IN LIST? 

BNE 1* iBR IF NOT 

Relink cache entry at head of chain (it is most recently used). 



014744 016263 OOOOOOG 000000(3 2*: 
014752 013762 0000000 OOOOOOG 
014760 010237 0000006 



MOV FCHiLNK(R2),FC*LNK(R3)i RELINK CHAIN AROUND US 
MOV CSHHD, FC«LNK(R2);N0W LINK US AT FRONT OF LIST 
MOV R2, CSHHD 



Copy info from file directory entry to cache entry. 



014764 010203 

014766 010104 

014770 012700 OOOOOOG 

014774 006200 

014776 012423 3*: 

015000 077002 



MOV 


R2, R3 


MOV 


R1,R4 


MOV 


#FD**SZ, RO 


ASR 


RO 


MOV 


(R4)+, (R3) + 


SOB 


RO, 3* 



J GET ADDRESS OF CACHE ENTRY 

i GET ADDRESS OF DIRECTORY ENTRY 

i GET # BYTES TO MOVE 

iGET # WORDS TO MOVE 

J COPY DIRECTORY INFO TO CACHE ENTRY 



015002 010562 OOOOOOG 



015006 004737 013622' 
015012 010062 OOOOOOG 



015016 012605 
015020 012604 



Store pointer to cached-device table entry into file cache entry 

MOV R5, FC*CDX(R2) i REMEMBER WHICH DEVICE FILE IS ASSOC WITH 

Store starting block number of file 

; CALCULATE STARTING BLOCK # OF FILE 
J SAVE STARTING BLOCK # 



9*: 



CALL 


SBCALC 


MOV 


RO, FC*SBL(R2) 


Finished 




MOV 


(SP)+, R5 


MOV 


(SP)+, R4 
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CSHADD — Add file entry to directory cache 

58 015022 012603 MOV <SP)+, R3 

59 015024 012602 MOV <SP)+, R2 

60 015026 000207 RETURN 
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TSUSR 
CSHDEL 
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— Remove a file entry from the directory cache 
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19 
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015030 010146 



015032 062701 OOOOOOG 
015036 004737 015054' 
015042 103402 



015044 005061 OOOOOOG 



015050 012601 
015052 000207 



. SBTTL CSHDEL — Remove a file entry from the directory cache 

CSHDEL is called to remove an individual file entry from the cache table. 

Inputs: 
Rl = Pointer to directory entry for file to be removed. 
FILDVU = Device # / unit # of device. 

CSHDEL: MOV R1,-<SP) 

Search for file entry in cache table. 

> POINT TO FILE NAME IN DIRECTORY ENTRY 
i SEE IF ENTRY IS IN DIRECTORY CACHE 
i BR IF FILE ENTRY IS NOT IN CACHE 



ADD 


#FD*NAM, Rl 


CALL 


CSHCHK 


BCS 


4* 



Found entry in cache table. 
Mark it as deleted. 



CLR 
Finished 



4$: 



MOV 
RETURN 



FC*CDX(R1) 



<SP)+. Rl 



i MARK ENTRY AS DELETED 
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in directory cache 

. SBTTL CSHCHK — Search for file entry in directory cache 

CSHCHK is called to try to locate an entry for a file in 

the directory cache. If it is found the file is set as the most 

recently used. 

Inputs: 
Rl = Pointer to file name <3 words. rad50: name. name, extension) 
FILDVU = Device & unit #. 

Outputs: 
C-flag cleared if file entry is found. 
Rl = Pointer to cache table entry for file 
(same format as directory entry). 
RO = Starting block # of file. 



015054 
015056 
015060 
015062 



015064 
015070 



015072 
015076 
015100 
015104 
015110 
015112 
015114 
015120 
015122 
015126 
015130 
015134 
015136 
015142 
015144 



015146 
015154 
015162 



015166 
015172 
015174 



010246 
010346 
010546 
010103 



004737 
103442 



012701 
010102 
016101 
020561 
001012 
010300 
022061 
001006 
022061 
001003 
021061 
001404 
005761 
001355 
000414 



016162 
013761 
010137 



016100 
000241 
000401 



015210' 



OOOOOOC 

OOOOOOG 
OOOOOOG 



OOOOOOG 
000002G 
000004G 
OOOOOOG 



CSHCHK: MOV 
MOV 
MOV 
MOV 



R2. -<SP) 
R3. -(SP) 
R5. -<SP) 
R1,R3 



i CARRY FILE NAME POINTER IN R3 
See if this device is being cached and get pointer to device table entry 



CALL 
BCS 



CSHTST 
4* 



i SEE IF THIS DEVICE IS BEING CACHED 
; BR IF DEVICE IS NOT BEING CACHED 



Search for file entry in cache table. 



1*: 



2*: 



MOV 
MOV 
MOV 
CMP 
BNE 
MOV 
CMP 
BNE 
CMP 
BNE 
CMP 
BEQ 
TST 
BNE 
BR 



#CSHHD-FC*LNK. Rl 

R1.R2 

FC*LNK<R1).R1 

R5, FC*CDX(R1) 

2$ 

R3, RO 

(R0)+. FD*NAM<R1) 

2$ 

<R0)+. FD«NAM+2<R1) 

2« 

<R0).FD«NAM+4(R1) 



GET POINTER TO DUMMY STARTING POINT 

REMEMBER ADDRESS OF PREVIOUS ENTRY 

GET ADDRESS OF NEXT ENTRY IN LIST 

IS FILE ON CACHED DEVICE? 

BR IF NOT 

POINT TO FILE NAME 

COMPARE FILE NAMES 



3* 

FC*LNK<R1) 

1* 

4* 



BR IF FOUND ENTRY FOR FILE 

IS THIS LAST ENTRY IN LIST? 

BR IF NOT 

FILE ENTRY IS NOT IN CACHE TABLE 



Found entry — Relink at head of list (it is most recently used). 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 3*: 
OOOOOOG 



MOV FC*LNK(Rl).FC*LNK(R2)i RELINK LIST AROUND US 
MOV CSHHD, FC*LNK(Rl)iLINK US IN AT HEAD OF LIST 
MOV Rl.CSHHD 



Return with Rl = address of cache entry. RO = Starting block #. 

FC*SBL(R1).R0 

5« 
Can't find file entry in cache. 



MOV 
CLC 
BR 



; GET STARTING BLOCK # FOR FILE 
; SIGNAL SUCCESSFUL RETURN 
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58 

59 015176 

60 

61 

62 

63 015200 

64 015202 

65 015204 

66 015206 



000261 



012605 
012603 
012602 
000207 



4*: 



SEC 



; SIGNAL UNSUCCESSFUL RETURN 



; Return 




5*: MOV 


<SP)+, R5 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





TSUSR 
CSHTST 
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015210 010346 
015212 010446 



015214 004737 015266 



1 5220 1 370 5 OOOOOOG 

015224 020365 OOOOOOG 

015230 001003 

015232 020465 OOOOOOG 

015236 001407 

015240 062705 OOOOOOG 

015244 020537 OOOOOOG 

015250 103765 

015252 000261 

015254 000401 

015256 000241 



015260 012604 
015262 012603 
015264 000207 



. 3BTTL CSHTST — Determine if device is to be cached 

CSHTST is called to determine if file entries for a particular 
device & unit are to be stored in the directory cache. 

Inputs: 
FILDVU = Device & unit # 

Outputs: 
C-flag cleared if device is to be cached. 
R5 = Address of device entry in cached device table. 



CSHTST: 



MOV 
MOV 



R3, -<SP) 
R4, -<SP) 



If this file is on a logical disk, set up information about the LD. 

CALL GETDVU i GET INFO ABOUT PHYSICAL DEVICE AND UNIT 

Search for device information in table of cached devices 



2*: 



5$: 



3«: 



MOV 

CMP 

BNE 

CMP 

BEQ 

ADD 

CMP 

BLO 

SEC 

BR 

CLC 

Finished 



4*: 



MOV 
MOV 
RETURN 



CSHDEV, R5 

R3, CD«DVU<R5) 

5* 

R4, CD«BAS<R5) 

3* 

#CD**SZ, R5 

R5> CSHDVN 

2* 

4* 



(SP>+, R4 
(SP)+, R3 



POINT TO TABLE OF MOUNTED DEVICES 

DO DEVICE # AND UNIT #'S MATCH? 

BR IF NOT 

DOES BASE BLOCK # OF DISK MATCH? 

BR IF YES — THIS DEVICE IS CACHED 

POINT TO NEXT TABLE ENTRY 

REACHED END OF TABLE? 

BR IF NOT 

SIGNAL THAT DEVICE IS NOT TO BE CACHED 

SIGNAL THAT DEVICE IS TO BE CACHED 



( 
I 

i 

i 

I 

« 

i 

I 
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I 

i 

i 

I 

< 
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4 
I 



TSUSR 
GETDVU 
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i 

S 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



01 
01 
01 
01 
01 
01 
01 
01 
01 



5266 
5272 
5274 
5300 
5302 
5304 
5310 
5312 
5316 



0153: 



013703 
005004 
120337 
001010 
000303 
042703 
006303 
016304 
016303 



000207 



002014' 



0000000 



177770 

OOOOOOG 
OOOOOOG 



. 3BTTL GETDVU 



Get device # & unit # info 



GETDVU is called to get the device number/ unit number* and starting 
block number of a logical disk. 

Inputs: 
FILDVU ~ Logical device number and unit number. 

Outputs: 
R3 = Physical device number and unit number, 

R4 = Starting block number on physical disk of logical disk base. 
<Zero if this is not a logical disk) 

GET DEVICE # AND UNIT # 

ASSUME DEVICE IS NOT A LOGICAL DISK 

IS THIS DEVICE A LOGICAL DISK? 

BR IF NOT 

GET LOGICAL UNIT # TO LOW ORDER BYTE 

MASK OUT ALL BUT UNIT # 

CONVERT TO WORD TABLE INDEX 

GET STARTING POSITION OF LOGICAL DISK 

GET PHYSICAL DEVICE # AND UNIT # 

Finished 

4$: RETURN 



GETDVU: 


MOV 


FILDVU, R3 




CLR 


R4 




CMPB 


R3, LDDEVX 




BNE 


4* 




SWAB 


R3 




BIC 


#•'^07, R3 




ASL 


R3 




MOV 


LDBASE<R3),R4 




MOV 


LDPDEV<R3),R3 



t 

i 
i 
i 



i 
i 
« 
I 

i 
i 

€ 

I 
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CDJFLG — Get user-flag for cached device entry 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 



. SBTTL CDJFLQ — Set user-flag for cached device entry 

CDJFLG is called to locate within a cached-device table entry the 
specific mount-flag that corresponds to the current job. 

Inputs: 
R3 = Job index number of job whose flag is to be identified. 
R5 = Pointer to cached device table entry. 

Outputs: 
R2 = Address of byte that contains mount-flag. 
R3 = Mount-flag bit positioned correctly within byte. 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



5324 
5326 
5330 
5332 
5336 
5340 
5344 
5350 
5352 
5354 



006203 
005303 
005002 
071227 
060502 
062702 
012700 
072003 
010003 
000207 



000010 

OOOOOOG 
000001 



CDJFLG: 


ASR 


R3 




DEC 


R3 




CLR 


R2 




DIV 


#8. > R2 




ADD 


R5, R2 




ADD 


#CD*JOB. R2 




MOV 


#1,R0 




ASH 


R3, RO 




MOV 


RO, R3 




RETURN 





Convert job index to index 
Make base job number 
Clear for divide 
Divide by 8 jobs per byte 
Get address of byte within 
cached-device table entry 
Get a mount flag 
Position flag according to 
Return flaq in R3 



by 1 



job number 
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USRXIT — Exit from USR 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 01 

11 01 

12 01 

13 01 

14 01 

15 01 

16 01 
17 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

28 01 

29 01 

30 01 



SBTTL USRXiT — Exit from USR 



01 
01 



5356 
5362 
5364 
5370 
5372 
5376 
5400 



5404 
5410 



013703 
001402 
005063 
010046 
004737 
012600 
000137 



004737 
000137 



ooooooe 

OOOOOOG 
010146' 
OOOOOOG 



010146' 
OOOOOOG 



5414 
5416 
5422 



010005 

013704 OOOOOOG 

000137 OOOOOOG 



USRXIT is the exit point for EMT processing within the USR. 

USRCLS sets an I/O error code^ purges the channel then aborts the emt. 

USRERR sets an I/O error code but does not purge the channel. 



Inputs: 
RO = error code CUSRERR, and USRCLS onlul 



USRCLS: MOV 
BEG 
CLR 

USRERR: MOV 
CALL 
MOV 
JMP 



CHNADR, R3 

USRERR 

C. CSW<R3) 

RO, -<SP) 

FREUSR 

<SP>+, RO 

SETERR 



Normal exit from USR 



USRXIT: CALL 
JMP 



FREUSR 
EMTXIT 



GET ADDRESS OF CURRENT CHANNEL 

BR IF NONE 

PURGE THE CHANNEL 

SAVE ERROR CODE 

FREE USR DATA BASE IF WE HAVE IT 

GET BACK ERROR CODE 

RETURN ERROR CODE FOR EMT 



iFREE USR MODULE 
iEXIT FROM EMT 



Fatal abort due to internal consistency check. 

Inputs: 
RO = Abort code. 



UABORT: MOV 
MOV 
JMP 



RO, R5 
EMT ADR, R4 
ABORT 



GET ERROR CODE FOR ABORT 
GET ADDRESS OF ABORTED EMT 
GIVE A FATAL ABORT 



I 

i 
< 
I 
I 
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I 



< 
i 

I 

€ 

I 
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I 
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TSUSR - 
ERRNAM - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

Errors d 
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015426 



015426 
015432 



015434 
015442 
015450 
015456 
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for error message 

. SBTTL ERRNAM — Set name of file spec for error message 

ERRNAM is called to move the current device/file specification to a 
cell that uill cause the spec to be printed uiith an error message 
when the job reenters TSKMON. 

Inputs: 
FILSPC = Device/file specification in RAD50 form. 

Outputs: 
ERRSPC = Device/file specification saved for TSKMON. 

ERRNAM: 

Don't set file spec for error message if a . SERR has been done 



105737 
001014 



013737 
013737 
013737 
013737 



OOOOOOG 



TSTB 
BNE 



SERFLG 
9« 



OOOOOOG 
000002G 
000004G 
000006G 



OOOOOOG 
000002G 
000004G 
000006G 



015464 000207 



015466 
etected: 



000001 




Move file spec to holding area 

MOV FILSPC, ERRSPC 

MOV FILSPC+2> ERRSPC+2 

MOV FILSPC+4, ERRSPC+4 

MOV FILSPC+6, ERRSPC+6 

i Finished 

9*: RETURN 

Top of TSUSR module 

USRTOP : 

. END 



*»* Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 10520 Words < 42 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:01:40.08 
, LP: TSUSR=DK: TSUSR /C/N: SYM 



# Has a .SERR been done? 
; Br if yes 



; Device name 
iFile name part 1 
iFile name part 2 
i Extension 



I 
I 

c 

I 

4 

i 





TSUSR 


-- File 


operation 


EMT ' s MACRO 


V05. 05 


Wednesday 


lS-Jan-89 


12: 12 Page 


S-1 






Cross reference 


table <CREF V05. 05) 


















*DILUP 


1-55 


41-40 




















*DUPRN 


1-71 


34-131 




















*KINIT 


1-41 


19-77 




















*NOIN 


1-62 


34-49 




















*UCLRN 


1-47 


34-41 




















... VI 


48-23 


48-23 


49-14 


49-14 


50-85 


50-85 












. . . V2 


48-23 


48-23 


48-23# 


48-23# 


49-14 


49-14 


49-14# 


49-14# 


50-85 


50-85# 




ABORT 


1-63 


58-30 




















ACCMCH 


34-94 


34-113 


35-1 5# 


















AD4i$SZ 


1-51 


14-41 


14-60 


15-21 


15-34 


17-41 


33-24 










AD*DVU 


1-51 


14-39 


14-68* 


1 5-20* 


15-32 


15-45* 


17-39 


33-22 








AD*FLG 


1-51 


i4~70« 




















AD*JOB 


1-51 


14-48 


14-51* 


14-58 


14-69* 


15-17 


15-19* 


15-38 


15-46* 


17-61 33-41 




ADDENT 


5-55 


38-16# 




















AF*BYA 


1-39 


29-26 




















ALCCOM 


14-27 


15-9 


16-6 


1S-H# 
















ALCEMT 


1-25 


14-6# 




















ALCEND 


1-51 


14-42 


14-61 


15-22 


15-35 


17-42 


33-25 










ALCTBL 


1-51 


14-37 


14-57 


15-10 


17-38 


33-20 












ALCTST 


14-31 


16-10 


17-16# 


















ASNEND 


1-33 


29-32 




















ASNSIZ 


2-48# 


5-42 


29-15* 


29-50* 
















ASNTBL 


1-32 


29-28 




















AT**SZ 


1-34 


29-31 




















AT*DEV 


1-34 


29-39 




















AT*EXT 


1-34 


29-44 




















AT*FIL 


1-34 


29-40 


29-43 


















AT«LOG 


1-34 


29-29 




















AT*SIZ 


1-34 


29-47 




















BADEMT 


1-56 


14-16 




















C. CSW 


1-40 


5-10 


5-30* 


5-67* 


6-16 


6-51 


6-68 


6-149* 


7-9 


7-61* 8-6 8-16 






8-23 


8-40 


8-51 


8-58* 


8-63 


8-145* 


11-35* 


12-36* 


13-45 


19-87 19-94 28-35 






28-6 1» 


28-62* 


34-32* 


34-74* 


34-147* 


41-44 


41-46 


50-34* 


50-50 


50-105* 50-117* 58-12* 




C. DEVQ 


1-40 


6-63 


8-50 


19-96 


27-18 


28-60* 


50-60 










C. LENG 


1-40 


4-65* 


5-68* 


8-112 


28-64* 














C. NUMQ 


1-40 


28-66* 




















C. SBLK 


1-40 


4-63* 


5-82* 


8-57* 


28-63* 














C. USED 


1-40 


5-83* 


8-114 


28-65* 
















CIDEVX 


1-62 


18-33 


32-79 


















CD**SZ 


1-72 


19-62 


20-35 


22-27 


26-25 


55-27 












CD**UB 


1-73 


20-66 


24-21 


















CDHiBAS 


1-72 


20-49* 


24-29 


55-25 
















CD*DVU 


1-72 


19-32 


19-34 


20-33 


20-48* 


22-20 


24-31 


24-43 


24-48* 


55-23 




CD*JOB 


1-73 


20-65 


24-20 


57-19 
















CD*NAM 


1-73 


20-45* 


20-46* 


20-58* 


20-59* 














CD*TOP 


1-72 


20-47* 


20-54* 


















CDJFLG 


19-45 


20-73 


22-15 


24-14 


26-19 


26-23 


57-14# 










CHKABT 


1-36 


31-25 


51-17 


















CHKACC 


6-50 


28-74 


34-16# 


















CHKALC 


28-70 


33-10# 




















CHKDEV 


6-42 


9-10 


10-16 


18-26 


25-24 


28-48 


32-14# 










CHKSD 


1-42 


4-14 


5-20 


















CHKUSE 


17-48 


19-17# 




















CHNADR 


1-32 


5-63 


8-5 


28-27 


58-10 














CHNNUM 


1-39 


8-67 


38-49 


48-23 


48-23 


49-14 


49-14 


50-77 


50-85 


50-85 




CHNSIZ 


1-60 





















i 
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Cross reference table (CREF V05. 05) 

CKADEV 2-52# 34-84* 34-133 35-25 

CKAUNT 2-53# 34-86# 34-135 35-29 

CL*LIX 1-46 32-83 

CLCLOS 1-69 

CLDEVX 1-62 18-28 32-77 

CLOSE 1-24 8-5# 

CLRDIR 1-25 27~12# 

CLTOTL 1-56 18-30 18-35 

CLZERR 1-73 8-149 

CNSLXD 2-54# 37-108 41-20* 41-50* 42-18* 42-54* 

CONSOL 6-117 6-144 7-56 8-100 8-136 37-31 41-12# 

CORUSR 1-33 8-73 20-72 22-13 24-13 26-22 31-14 31-26 31-33 31-58 33-42 34-22 

34-130 38-48 50-61 51-9 51-22 51-30 

CPLEMT 1-49 45-42 

CPYMNT 1-27 26-9# 

CPYSPC 29-20 30-10# 50-30 

CS*ENT 1-41 5-30 5-66 8-40 41-46 

CS*EOF 1-45 8-58 50-34 

CS*ERR 1-45 8-58 50-34 

CS*NMX 1-41 8-24 8-52 

CS*OPN 1-42 8-6 19-87 28-35 28-62 41-44 50-117 

CS«RON 1-45 5-10 6-16 6-51 6-68 7-9 13-45 34-32 34-74 34-147 

CS*SPL 1-42 8-16 

CSHADD 4-56 6-140 B-134 11-27 52-9# 

CSHALC 1-42 24-41 

CSHCHK 4-42 53-14 54-17# 

CSHCLN 1-42 24-44 

CSHDEL 6-34 6-107 7-48 8-92 13-32 53-9# 

CSHDEV 1-64 19-31 20-32 22-19 26-17 55-22 

CSHDMT 21-12 21-49# 

CSHDVN 1-64 19-63 20-36 22-28 26-26 55-28 

CSHHD 1-63 3-15* 21-50 24-52 27-29 52-22 52-33 52-34* 54-29 54-48 54-49* 

CSHTST 20-13 23-12 27-24 52-16 54-24 55-13# 

CURCP 1-61 31-39 

CURSEG 2-31# 5-64 6-29 6-82 6-112 8-85 8-96 31-46* 37-77 37-88 37-94 37-104 

37-106 37-161 40-27 40-80* 48-14 48-18* 49-10 

DELETE 1-24 7-5# 

DEVSIZ 1-59 9-30 

DF*CLS 1-68 8-29 

DF$DEL 1-68 7-21 

DF*ENT 1-68 5-31 50-54 50-103 

DF*LOK 1-68 4-24 50-101 

DH*«BS 1-53 47-36 48-21 49-13 

DH**SZ 1-53 38-72 40-34 40-44 40-63 40-84 41-24 42-5 42-40 46-14 47-41 48-29 

DH*BLK 1-52 40-43 40-81* 46-13 47-36 

DH«HIS 1-52 40-96* 47-26 

DH*NEB 1-52 47-31 

DH*NSG 1-52 47-27 

DH«NXT 1-52 37-114 40-70 40-73* 40-79* 43-27 

DIDDLE 4-72 5-74 6-136 45-18# 

DIRHIS 2-32# 40-25 40-71 40-97* 47-26* 

DIRNSG 2-34# 40-25 47-27* 47-29 

DIRSIZ 2-33# 8-119 8-124 37-35 38-27 38-61 38-70 38-71 38-76 38-78 39-27 39-34 

40-39 40-46 40-52 41-25 44-14 46-18 47-35* 48-30 

DISMNT 1-27 21-5# 

DLCEMT 14-13 15-5# 



TSUSR — File operation EMT's MACRO V05. 05 
Cross reference table <CREF V05. 05) 



Wednesday 18-Jan-89 12: 12 Page S-3 



DMT ALL 


21-14 


22-5# 






















DMTDEV 


22-26 


23-17 


24-S# 




















DMTSUB 


20-9 


21-28 


23-8# 




















DS*DIR 


1-47 


4-29 


5-36 


6-9 


7-26 


13-18 


20-21 


34-68 










DS*NRD 


1-46 


4-20 


5-26 


7-17 


8-25 


20-23 














DSTAT 


1-25 


9-5# 






















DVFLAG 


1-38 


4-22 


5-28 


7-19 


8-27 


20-25 


20-27 


33-32 










DVSTAT 


1-32 
34-68 


4-20 


4-29 


5-26 


5-36 


6-9 


7-17 


7-26 


8-25 


9-24 


13-18 


20-20 


DX*NMT 


1-38 


20-27 






















DX*NRD 


1-46 


4-22 


5-28 


7-19 


e-27 


20-25 














DX$RAL 


1-38 


33-32 






















EMTADR 


1-63 


58-29 






















EMTBLK 


1-32 


5-44 


6-38 


9-21 


10-27 


11-7 


11-43 


11-51 


12-11 


14-10 


18-19 


21-10 




25-19 


28-42 


45-18 


45-53 


50-26 


50-53 


50-56 


50-58 










EMTCAD 


1-49 


45-37 


45-39* 




















EMTPS 


1-59 


1-71 


30-22 


45-52 


















EMTXIT 


1-54 


8-155 


50-111 


58-21 


















ENTER 


1-24 


5-5# 






















ERRNAM 


5-12 
59-13# 


6-44 


6-70 


7-11 


13-47 


25-26 


28-50 


33-34 


33-45 


34-140 


48-25 


49-16 


ERRSPC 


1-45 


59-22* 


59-23* 


59-24* 


59-25* 
















EXCJOB 


1-31 


31-21 


31-22* 


31-28* 


















FC**SZ 


1-56 


3-18 


3-21 


3-27 


















FC*CDX 


1-37 


3-24* 


21-51* 


24-53 


24-55* 


27-30 


27-32* 


52-25 


52-47* 


53-20* 


54-32 




FC*LNK 


1-63 
54-29 


3-23* 
54-31 


3-28* 
54-41 


21-53 
54-47 


24-57 
54-47* 


27-34 
54-48* 


52-22 


52-24 


52-27 


52-32 


52-32* 


52-33* 


FC*SBL 


1-64 


52-52* 


54-53 




















FD**SZ 


1-64 


45-30 


45-62 


52-40 


















FD*CHN 


1-48 


8-71 


38-49* 


41-42 


















FD*DAT 


1-49 


4-68 


8-126 


8-128* 


11-10 


11-11* 


12-23 


38-50* 


45-51 








FD«JOB 


1-48 


8-73 


38-48* 


41-34 


















FD*LEN 


1-48 
42-17 


4-64 
42-17* 


8-111 
42-36 


8-115* 
46-17 


8-122* 


12-14 


37-63 


38-43 


38-44* 


38-63* 


40-45 


40-51 


FD«NAM 


1-48 
54-39 


6-128 


8-78 


21-52* 


24-56* 


27-33* 


36-29 


37-50 


38-52 


53-13 


54-35 


54-37 


FD*OPT 


1-49 


47-34 






















FD«STA 


1-48 


6-80* 


6-81* 


6-93 


6-100* 


6-101* 


6-109* 


6-125* 


6-126* 


7-41 


7-52* 


8-94* 




8-108 


8-110* 


8-120 


11-57* 


11-59* 


12-18 


37-36 


38-47* 


38-74 


39-19 


39-39* 


40-36 




40-49 


41-49* 


42-14 


42-42 


44-15 


44-17 














FD*TIM 


1-37 


4-67 


8-125* 


8-132* 


11-43* 


12-26 














FETCH 


1-27 


10-7# 






















FILBLK 


2-35# 
























FILDVU 


2-36# 


8-50* 


8-53* 


14-38 


14-68 


15-29 


15-31 


17-27 


17-29 


17-31 


17-39 


18-48* 




18-49* 


19-34 


19-98 


19-100 


20-19 


20-51 


25-32* 


25-33* 


27-13 


27-17* 


27-20* 


27-39* 




28-55* 


28-56* 


33-15 


33-21 


33-31 


56-14 














FILSPC 


1-32 


4-35 


4-41 


6-129 


8-79 


15-15 


17-25 


18-24 


29-19 


29-24 


29-38 


32-19 




34-55 


34-66 


35-36 


36-30 


37-51 


38-53 


59-22 


59-23 


59-24 


59-25 






FNDFIL 


4-48 


6-22 


6-87 


7-36 


8-89 


13-25 


36-1 5# 












FNDFRE 


5-45 


37-17# 






















FRECXT 


1-57 


19-125 


19-132 


42-61 


















FRESPD 


1-27 


50-97 


51-30# 




















FREUSR 


1-25 


8-141 


31-57# 


50-17 


58-14 


58-20 














FS*EMP 


1-50 
42-7 


6-81 
42-14 


6-100 


6-109 


6-125 


7-52 


B-94 


8-120 


37-37 


37-39 


39-39 


41-49 


FS*EOS 


1-50 


37-37 


37-41 


39-18 


40-36 


40-69 


42-21 


42-47 


44-17 
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Cross reference table <CREF V05. 05) 



FS*PRM 


1-50 


6-80 


6-101 


6-126 


8-110 


36-24 


37-37 


FS*PRO 


1-61 


6-93 


7-41 


11-57 


11-59 


12-18 


37-47 


FS*TEN 


1-50 


8-68 


8-108 


38-47 


38-74 


40-49 


41-28 


OETCHA 


1-55 


19-83 


41-43 










GETCXT 


1-57 


19-24 


41-19 










GETDIR 


8-69 


36-25 


43-17# 










GETDVU 


20-44 


55-18 


56-14# 










GETQ 


1-70 


50-38 












GETSPC 


6-41 


9-8 


10-12 


18-20 


25-20 


28-44 


29-13# 


GETSPD 


50-21 


51-7# 


51-18 










GETUSR 


1-23 


8-46 


9-5 


10-7 


18-15 


21-49 


22-9 


GFINFD 


1-26 


12-10# 












HANENT 


1-59 


9-28 












HANS I Z 


1-59 


9-26 












INSERT 


38-62 


38-77 


39-1 4# 










INTPRI 


1-69 


31-20 


31-34 


31-66 


31-73 






lOWAIT 


1-57 


8-12 












JCDB 


1-38 


8-34 












KMONCE 


1-31 


34-60 












KPAR6 


1-33 


50-40 












LI OFF 


2-43# 


37-76* 


37-85 


37-87* 


37-131 


37-147 




LISEG 


2-44# 


37-77* 


37-84 


37-88* 


37-104 


37-130 


37-146 


LISIZ 


2-42# 


37-22* 


37-71 


37-75* 


37-81 


37-83 


37-86* 


L20FF 


2~46# 


37-85* 


37-93* 


37-143 








L2SE0 


2-47# 


37-84* 


37-94* 


37-106 


37-142 






L2SIZ 


2-45# 


37-23* 


37-83* 


37-90 


37-92* 


37-140 


37-144 


LD*RON 


1-53 


34-30 












LDAEMT 


1-33 


21-44 












LDBASE 


1-72 


56-21 












LDDEMT 


1-32 


21-36 












LDDEVX 


1-62 


9-35 


18-38 


32-65 


34-26 


56-16 




LDFLAG 


1-53 


34-30 












LDIEMT 


1-32 


21-40 












LDNAME 


1-73 


20-56 












LDPDEV 


1-69 


32-69 


56-22 










LDSIZE 


1-55 


9-38 


20-53 










LNPRIM 


1-56 


14-49 


15-39 


15-39 


17-64 


17-64 


19-54 


LOOKUP 


1-24 


4-5# 












LSTFDD 


1-36 


4-68* 












LSTFDT 


1-36 


4-67* 












LSTSL 


1-60 


19-40 


19-119 


41-38 








LSW 


1-55 


19-77 


41-40 










LSW2 


1-43 














LSW3 


1-62 


34-49 












LSW5 


1-45 














LSW6 


1-43 


34-131 












LSW7 


1-47 


34-41 












MAXLD 


1-33 














MNTCOM 


20-5 


21-24 


25-10# 










MOUNT 


1-27 


20-5# 












NLCHN 


1-41 


19-113 












NSPLDV 


1-73 


4-12 


5-18 










NUMDEV 


1-36 


32-49 












NXTDIR 


38-24 


39-21 


41-29 


42-S 


42-22 


42-48 


43-21 


ODTBAS 


1-71 


30-24 












OF**SZ 


1-44 


34-101 


34-118 











40-49 42-42 



i 

25-15 28-31 31-7# 

i 

i 

i 
c 

37-122 37-129 37-135 

( 

t 

i 

€ 
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OF*DEV 1^43 35-23 

OF*FIL 1-44 35-18 35-35 

OF«FLG 1-44 34-96 34-115 

OF*UNT 1-44 35-27 

OKFAND 1-43 34-92 34-102 

OKFEND 1-45 34-111 

OKFILE 1-43 34-91 

OKFNND 1-43 34-110 

OT*RDN 1-44 34-96 34-115 

OVRHC 1-69 4-14 5-20 8-18 19-24 19-83 19-125 19-132 41-19 41-43 42-61 

PO*ALC 1-35 14-20 15-5 

PO*BYP 1-35 34-36 

PO*NFR 1-35 34-72 

PO*NFW 1-35 34-70 

PO*SYS 1-46 34-47 

PNAME 1-39 32-50 

PR7 1-69 31-11 31-57 

PRIVCO 1-35 1-46 14-20 15-5 34-36 34-47 34-70 34-72 

PSW 1-69 31-11* 31-20# 31-34* 31-57* 31-66* 31-73* 

Q. BLKN 1-66 50-57* 

Q. BUFF 1-66 50-74* 

Q. CHAN 1-67 50-77* 

Q. COMP 1-66 50-76* 

Q. CSW 1-65 50-43* 

Q. DEVX 1-65 50-52* 

Q. FUNC 1-65 50-59* 

Q. I CSW 1-67 50-42 

Q. JNUM 1-64 50-66* 

Q. JOB 1-65 50-63* 

Q. PA6 1-68 50-40* 

Q. PAR 1-66 50-75* 

Q. UCSW 1-67 50-39* 

Q. UNIT 1-65 50-60* 

Q. WCNT 1-66 50-58* 

QIO 1-70 50-81 

QNSPNX 1-38 31-24 51-16 

R*CHN 1-61 

R*XCHN 1-61 

R50DK 2-38# 32-37 

R50SY 2-37# 32-39 

R50SYS 2-39# 34-56 

R50TSX 2-40# 34-58 

RDSEO 6-98 6-123 8-66 8-103 37-116 37-164 40-107 43-29 47-21 48-14# 

RDSEOl 8-59 36-20 37-27 40-95 47-16# 

RENAME 1-24 6-5# 

RESDEV 1-43 34-78 

RUNFLG 1-39 29-26 

S*QSPD 1-67 51-15 51-36 

S*QUSR 1-33 31-23 31-67 

SBCALC 5-69 12-30 36-38 46-12# 52-51 

SDCLOS 1-47 8-18 

SERFLG 1-41 59-17 

SETERR 1-54 8-151 14-23 15-8 50-118 58-16 

SFCLS 1-47 8-36 

SFCOM 11-5 11-41 11-49 12-10 13-13# 

SFDATE 1-26 11 -5# 
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SFEXIT ll-27# 11-44 11-58 11-60 

SFPROT 1-26 ll-49# 

SFTIME 1-26 11-41# 

SFWRIT 11-6 11-42 11-50 13-45# 

SPDJOB 1-70 51-7 51-22* 51-30 51-32* 

SPFLDV 1-70 50-29 

SPFLNM 1-70 50-67 

SPLDIR 4-25 5-32 7-22 8-30 50-13# 

SPLIT 38-37 40-17# 

SPSIZE 1-70 50-32* 50-92 

SPUSR 1-67 50-33* 50-88* 50-93 

SYINDX 1-39 17-29 24-32 32-41 34-51 34-133 

SYSCHN 1-54 1-60 

SYSDAT 1-55 8-128 11-9 

SYTIMH 1-37 8-129 

SYTIML 1-37 8-130 

SYUNIT 1-39 17-31 24-35 32-44 34-53 34-135 

TK3SVL 1-37 8-131 

TLCEMT 14-15 16-5# 

TSUSR 1-1 5# 1-23 

UABORT 8-173 5a-28# 

UACHKW 1-58 30-15 

UERRl 2-59# 8-160 

UERR2 2-60# 8-163 

UERR3 2-6 1# 8-166 

UERR4 2-62# 8-169 

UERR5 2-63# 8-172 

UERR6 2-64# 47-50 

UMDDE 1-71 30-22 

URO 1-54 4-6* 4-66* 5-6* 5-54* 9-7 9-22* 10-11 10-30* 15-42* 16-5* 17-21* 

17-51* 17-55* 17-62* 17-63* 50-92* 

UREGO 1-36 31-68 51-37 

USRBUF 2-30# 37-114 38-31 38-72 40-34 40-43 40-44 40-63 40-70 40-73* 40-79* 40-81* 

40-84 40-85 40-96* 41-24 42-5 42-40 43-27 46-13 46-14 47-25 48-23 48-29 

49-14 

USRCLS 4-51 5-14 5-49 5-59 6-12 6-25 6-46 6-62 6-72 6-104 7-13 7-32 

7-44 7-67 11-56 13-21 13-28 13-49 30-18 33-36 33-47 34-142 47-51 48-27 

49-18 58-10# 

USRCNT 2-4 1# 31-35* 31-60* 

USRCOM 4-5 5-5 6-5 7-5 13-13 28-26# 

USREMT 1-63 48-23 49-14 

USRERR 9-14 10-22 14-64 15-44 17-34 17-53 17-67 18-44 20-39 25-28 28-38 28-52 

31-42 58-11 58-1 3# 

USRINI 1-23 3-6# 

USRJOB 1-70 31-12 31-33* 31-58 31-62* 

USRTOP 1-23 3-11 59-33# 

USRUCA 1-25 2-26# 45-29 45-51 45-61 

USRXIT 4-76 5-87 6-150 7-62 9-43 10-31 11-36 12-37 14-74 15-50 16-14 20-75 

21-32 21-55 22-41 58-20# 

VALADB 1-58 

VALADW 1-58 9-23 12-12 

VMXFIL 1-47 37-152 37-154 37-156 

VNFCSH 1-50 3-16 

VPAR6 1-66 50-73 

WLDNAM 1-33 35-40 

WRTSEG 5-78 6-84 6-102 6-118 6-145 7-57 8-101 8-137 11-31 37-110 40-74 40-91 

40-98 49-9# 



{ 
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. . . CMl 


48-23 


49-14 














. . . CM2 


48-23 


48-23 


48- 


-23 


48- 


-23 


49- 


-14 


. . , CMS 


48-23 


49-14 














. . . CM7 


48-23 


49-14 














. READW 


1-19# 


48-23 














. WAIT 


1-19# 


50-85 














. WRITW 


1-19# 


49-14 














DISABL 


2-4# 


31-11 


31- 


-57 










ENABL 


2-8# 


31-20 


31- 


-34 


31- 


-66 


31- 


-73 


DC ALL 


2-15# 


4-14 


5- 


-20 


8- 


-18 


19- 


-24 



49-14 



49-14 



49-14 



19-83 



19-125 



19-132 



41-19 



41-43 



42-61 
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